Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
   split m{}, join( q{}, @arr1 ) ^ join( q{}, @arr2 );

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

Select or download this
```
1 2 4 5 3
1 2 4 2 3
1 1 1 0 1
```