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