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

print @array2;