# ALWAYS use strict :)

use strict

my @var2 =<INPUT>

for my $var2 (@var2) {
  for (@var1) { # how is @var1 set???

    print "match: $var1, $var2\n" if ($var2 =~ /$_/);

   }

}