foreach $pat (@patterns) {
if ( /$pat[1]/ && /$pat[2]/) {
print "theselines";
if ( /$pat[1]/ && /$pat[3]/) {
print "theselines";
if ( /$pat[1]/ && /$pat[4]/) {