$perc =~ s/.0$//;
$sorted{$perc}{'unknown/cloak'} = "$unknown ($perc%)" if ($unknown);
foreach ( keys %ver ) {
my $count = scalar keys %{ $ver{$_} };
$perc =~ s/.0$//;
$sorted{$perc}{'unknown/cloak'} = "$unknown ($perc%)" if ($unknown);
foreach ( keys %ver ) {
my $count = scalar keys %{ $ver{$_} };