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