$i=0;
foreach(@a) {
  if ($a[$i]!=$b[$i]) { return 0;}
  $i++; }
return 1;