@array = qw( zero one two three four five six seven eight nine );
print "@array.\n";
print "There are now ", scalar( @array ),
" elements in \@array\n";
@array = ();
print "@array.\n";
print "There are now ", scalar( @array ),
" elements in \@array\n";