Select Code to Download

for my $key (keys %hash) {

for my $key (sort keys %hash) {

Global symbol "$key" requires explicit package name at ...

for my $key (sort keys %hash) {
    if ($key eq $verb) {
...
        last;
    }
}