You should move your foreach loop inside your while loop. The problem is that your first query loops through all the lines of the dictionary file. Your second query does not loop through any lines of the file. Something like:

while ($line = <XX>) {
    for my $query (@query) {

    }
}
[download]