foreach my $file (sort {$a <=> $b} keys %hash) {
 print "$key \n";
}