Select Code to Download

#title "scalar in list context"
my @array = qw(zero one two);
...
print $listItemOne,"\n";
print $listItemTwo,"\n";
print $listItemThree,"\n";