Another alternative is to list each element twice explicitly in the map:

@doubled = map { $_, $_ } @array
[download]

Also, you can construct the new array in a loop instead of using map:

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