Just want to note that if this is your actual code:

open( FILE, "file" ) || die ("The file not there ");
[snip]
close(DICTIONARY); # close the file
[download]

you're opening one file, then closing another...
--

($_='jjjuuusssttt annootthheer
     pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;
[download]