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";