c:\@Work\Perl\monks>perl -wMstrict -le
"my @ra = 1 .. 9;
 foreach my $element (@ra) { printf qq{<$element> }; }
 print qq{\n};
 ;;
 pop @ra;
 ;;
 foreach my $element (@ra) { printf qq{<$element> }; }
 print qq{\n};
"
<1> <2> <3> <4> <5> <6> <7> <8> <9>

<1> <2> <3> <4> <5> <6> <7> <8>