my @names_by_val = sort { $hash{$a} <=> $hash{$b} } keys %hash;
shift(@names_by_val);
for my $n (@names_by_val) {
   ...
}