use List::MoreUtils qw(zip);
my @orig = qw(1 33 45 66);
my @doubled = zip @orig, @orig;
print "@doubled\n";