Select Code to Download

sub walkit {
   my $hashref = shift;
   my $min = each %$hashref;
...
   my $hashref = shift;
   ( sort {$a<=>$b} keys %$hashref )[0];
}