@var2=<INPUT>;
@copyvar2=@var2;

foreach $var1 (@var1){
  print "OUTER LOOP OK $var1\n";
  @copyvar2=@var2;
    
  foreach $var2 (@var2) {
    print "INNER LOOP OK $\n";
    chomp $var1;          # was: chomp $headers;
    chomp $var2;          # was: chomp $matched;
    
    if ($var1=~/$var2/){
      print "$var1\.\.$var2\n";
    }
    else {
      }
  }
}