for(my $c = 0; $c <= $num_elements; $c++) { if($hash{$filter[$c]->[4]} eq $filter_data) { if (exists($hash{$filter[$c]->[0]})) { if($hash{$filter[$c]->[3]} eq $numerical_value) { # #process filtering for numerical value if ((eval "$hash{$filter[$c]->[0]} $filter[$c]->[1] $filter[$c]->[2]")) { print OUTFILE $line, "\n"; } } } else { print "COLUMN NAME DOES NOT EXIST. CHECK FILTER FILE FOR ANY POSSIBLE ERRORS AND RE-RUN PROGRAM. PROGRAM WILL NOW TERMINATE.", "\n"; exit 0; } } }