Select Code to Download

use strict;

...
  print ($v->{$first} eq $v->{$second} ? "A":$first, " ");
}
print "\n";

   print ($v->{$first} == $v->{$second} || 
                $v->{$first} < 0.6 * scalar(keys %$v) 
            ? "A": $first, " ");