@array1 = (1,33,45,66);
for (reverse 0..$#array1) {
    splice @array1, $_, 0, $array1[$_];
}
print "@array1\n";
__END__
1 1 33 33 45 45 66 66