use strict;
use warnings;

my @array1=(1,33,45,66);
my @array2;

for my $items(@array1){
push @array2,($items,$items);
}

for my $item(@array2){
print "$item\n";
}