if (eval "$hash{$filter[0]->[0]} $filter[0]->[1] $filter[0]->[2]") { if (eval $hash{$filter[1]->[0]} $filter[1]->[1] $filter[1]->[2]) { if (eval "$hash{$filter[2]->[0]} $filter[2]->[1] $filter[2]->[2]") { print OUTFILE $line, "\n"; } } }