Hello Giu,

I believe the answer to your question is that the <XX> calls aren't going back to the beginning of the file when you start a new query. My recommendation is that you should read a line and then run every query against it.

I also heavily recommend that you use warnings; and use strict; in everything you write. As you said, you're just starting out, and it will help you down the road.

My other suggestion is that you use my when you need it and not at the top of your program. In your script, that would be:

foreach my $query (@query) {
    while ( my $line = <XX> ) {
[download]

This prevents lingering queries and lines after you have exited your loops which might cause unexpected things to happen if you add to this code.