use strict;
use warnings;

my @arr1 = ( 1, 2, 4, 5, 3 );
my @arr2 = ( 1, 2, 4, 2, 3 );
my @diff =
   map m{\0} ? 1 : 0,
   split m{}, join( q{}, @arr1 ) ^ join( q{}, @arr2 );

print qq{@arr1\n@arr2\n@diff\n};

##</code><code>##

1 2 4 5 3
1 2 4 2 3
1 1 1 0 1