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

##</code><code>##

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