$hash{fruit} = apple;$hash{sandwich} = hamburger;$hash{drink} = bubbly;%reversed = reverse %hash;foreach $key (sort keys %reversed) { print "$key => $reversed{$key}\n";}