above code won't work if the elements in array are not in order. solution is here:

my $Line1 = join(" ",@a1);
my $Match = 0;

for ($i=0;$i<=$#a2;$i++) 
{
   if ($Line1 =~ /$a2[$i]/)
   {
      $Match = 1;
   }
   else 
   {
      $Match  = 0;
      print " No match";
      last;
   }
}

if ($Match == 1) 
{
   print " Match";
}
[download]

Edit by tye, add CODE tags