my $Line1 = join(" ",@array1);
my $Line2 = join(" ",@array2);

if ($Line1 =~ /$Line2/)
{
   $Match = 1;
}
else
{
   $Match = 0;
}