my @a=(1,2,4,5,3);
my @b=(1,2,4,2,3);

my @c = map { $a[$_] <=> $b[$_] ? 0 : 1 } 0 .. $#a;

print @c;