if $Array1[0] =~/\Q$Array2[0]\E/{
  print "PASS";
  }