#!/usr/bin/perl -w

@array = (1);
print "initially \@array is @array\n\n";

push (@array, 2);
push (@array, 3, 4, 5);
print "after pushes \@array is @array\n\n";

$var = pop (@array);
print "after pop \@array is @array and \$var is $var\n\n";