foreach $tacobell (@lines) { if ($tacobell =~ /$inputarray[0]/) { if ($tacobell =~ /$inputarray[1]/) { if ($tacobell =~ /$inputarray[2]/) { if ($tacobell =~ /$inputarray[3]/) { if ($tacobell =~ /$inputarray[4]/) { if ($tacobell =~ /$inputarray[5]/) { print $tacobell; } } } } } } }