Select Code to Download

#!perl
use strict;
...
print "\tclearing:\n"     and   @arr=();#undef @arr and @arr=undef see
+m no good..

#!perl
use strict;
...
print "\tunshifting:\n"   and unshift @arr, 'zero';
print "\tclearing:\n"     and   @arr=();#undef @arr and @arr=undef see
+m no good..