Select Code to Download

use strict;
use List::MoreUtils qw/uniq/;
...

print "sorted unique results\n";
print Dumper([sort uniq(@x,@y)]);

unique results 
$VAR1 = [
...
          3,
          4
        ];