#!/usr/local/bin/perl -w

@array = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
@array2 = (11 .. 20);
print "Right now, \@array = @array\nand \@array2 = @array2\n";
push @array, @array2;
#unshift @array, @array2;
print "Now, \@array = @array\nand \@array2 = @array2\n";

$b = pop @array2;
$c = pop @array2;
$d = pop @array2;

@newarray = ($b, $c, $d);
print "old array2 is now @array2\n";
print "New array = @newarray\n";