Select Code to Download

foreach my $nums (keys %hash){ 
   
...
         # or do something with $hash{$nums}
        }
}

(0\.4[([^0]{2})([^0]\d)(\d[^0])])

(0\.4[(\d[^0])([^0]\d)])

 use strict;
 use warnings;
...
}
 
 exit(0);

if ($num =~ m/^(0\.([0-3]|400))/){
         print "$num is $numsh{$num}".$/;
         }