unless

# Skip to numbers.
BEGINNING: while ($begin = shift @a) {
  print qq (inspecting $begin\n);
  #last BEGINNING if $begin =~ /BEGIN/;
  next BEGINNING unless $begin =~ /BEGIN/;
}

last with the if statement works fine.
What's wrong with the unless.  It doesn't ever
break out.  Thanks.