){ $var1=$_; foreach my $var2 (@array){ if($var1 eq $var2){ print "line is $.\n"; } } }>