Select Code to Download

use strict;
use warnings;
...
print "\n";
@hash{@keys} = @hash{reverse @keys};
print "$_ => $hash{$_}  " for @keys;

one => 1  two => 2  three => 3  
one => 3  two => 2  three => 1