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