my %rhash = reverse %hash;
my %fh;
foreach my $num (keys %rhash)

##</code><code>##

my @keys = keys %{{ reverse %hash }};
my %fh;
foreach my $num ( @keys )