my @array1=(1,33,45,66);
my @array2;
foreach my $element (@array1) {
    push @array2, $element, $element;
}

print @array2;
[download]

Seems to work fine. When you tried that method, did you not use a second array?