my @array1 = qw(4 3 7 8 9 49 12 23 43);
my @array2;
for (0..$#array1)
{
	my $popElement = pop @array1;
	push (@array2,$popElement);
}

print "@array2\n";