$ perl -e'
my @arr1 = ( 1, 24, 5, 3 );
my @arr2 = ( 1, 2, 42, 3 );
my @diff = map /\0/ ? 1 : 0, split //, join( "", @arr1 ) ^ join( "", @
+arr2 );

print "@arr1\n@arr2\n@diff\n";
'
1 24 5 3
1 2 42 3
1 1 1 0 1
[download]

 :-(