Not tested... should work though... qr and perlre should explain.

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