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