use strict;
use warnings;

my @list = ('foo', 'bar',,,,'baz',,,,);
print "Item $_\n" for @list;
print "Length " . scalar @list."\n";