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

##</code><code>##

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