#!/usr/bin/perl -w # vim: set sw=8 ts=8 si et: my @myarray =("data1","data2","data3"); my $lvar; print "the array:\n"; foreach $lvar (@myarray){ print "$lvar\n"; } push(@myarray,"a"); push(@myarray,"b"); print "\nafter adding \"a\" and \"b\":\n"; while(@myarray){ print pop(@myarray),"\n"; }