Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
    return (@a1m2, @a2m1);

} # sub array_differenz

Array 1:
$VAR1 = [
          '1',
...
          'one',
          'three'
        ];