Select Code to Download

my @list = qw( wuhn tew thuree foah DONE whateva you know);
for my $i (0..10) {
  last if ($list[$i] eq 'DONE');
}
print "final index: $i\n";

print $t if (my $t = shift);

$t = shift;
print $t;
my $t;