Select Code to Download

my $current = 5;

...
   }

}

my $highest = 0;
foreach my $key (keys %hash)
...
}

print "\nhighest number is: $highest";