print "$_\n" ofr    map { $_->[0] } 
  sort { $a->[1] <=> $b->[1] } map { [ $_, $hash{$_} ] } keys %hash;