Select Code to Download

@doubled = map { $_, $_ } @array

my @doubled;
for my $elt (@array) {
    push @doubled, $elt, $elt;
}