for ( sort { $b cmp $a } @keys ) { print "$_\n"; }