use warnings;
use strict;

my $equals = 1;
for (my $i=0;$i<$#array1;$i++) {
  if ($array1[$i] ne $array2[$i]) {$equals = 0;}
  else {$equals = 1;}
  print $equals;
}