Select Code to Download

$_ = '1,,3,4,,,';       # a string of 7 possible values
  
...
        ++$count;
        print "Item $count is $_\n";
}

$a[7] = undef;

pop(@a);