Select Code to Download

my $n;

for (my @tmp = (LIST); @tmp ? ($n = shift @tmp) || 1 : 0;) {...}

print "Last \$n is: $n\n";