in reply to Simple regex wordlist question

Anything more elegant than:
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; } } } } } } }
I know I'm no programming expert :/