for (0..$#line2) {
   my $i = $line2[$_];
   for (0..$#line1) {
      my $j = $line1[$_];
      print $i if if $i eq $j;
   }
}