Select Code to Download

my @newarray;
for (@array1) {
   push @newarray, $_, $_;
}

my @newarray = map { $_, $_ } @array1;