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