my @names_by_val = sort { $hash{$a} <=> $hash{$b} } keys %hash;
for my $n (@names_by_val[1..$#names]) {
   ...
}