Select Code to Download

my @array1 = (1, 2, 3);
my @array2 = (3, 4, 5);

my %union = ();
map { $union{$_}++ } (@array1, @array2);
my @array3 = keys %union;