Select Code to Download

my @array1 = (1,2,3,4,5,6,7,8,3,5,6,3,8,1,7,8);
my @newarray;
...
        push (@tmparray, $array1[$_]);
}
push (@newarray, [@tmparray]) if defined @tmparray;

my @array3;
for (@newarray)
...
}

@array3 = sort @array3;