use strict;
use warnings;

my @array;

print "\@array contains ", scalar @array, " elements\n";
print for @array;

@array = undef;
print "\@array now contains ", scalar @array, " element\n";
for my $index (0 .. $#array) {
    print "Element at $index: ", (defined $_ ? "'$_'" : "undefined"), "\n"
}

@array = ();
print "\@array contains ", scalar @array, " elements\n";