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

    }
}