Select Code to Download

foreach my $keyLOOK(keys %UnNum){
        foreach my $word(@midWords){
...
            }
        }
}

foreach(keys %UnNum){
        foreach my $word(@midWords){
...
            }
        }
}