while (foo()) {
  ...
  goto JUST_BEFORE_END_OF_LOOP if bar();
  ...
  ...
JUST_BEFORE_OF_LOOP:
  clean_up
}
[download]

while (foo()) {
  ...
  next if bar();
  ...
  ...
} continue {
  clean_up
}
[download]

thanks for understanding my requirement and answering accordingly.

Maybe you should say explicitly what this requirement is. Although there is at least one other programming language that I use commonly in which I am using the goto statement quite commonly (but only forward goto's, not spaghetti goto's, for those that followed the debate on the subject between, say, Dijstra, Knuth and Wirth, to name just a few) in the late 1960s and early 1970's), I don't see any reason to use this kind of goto's in Perl.

And Larry Wall also said that he never needed to use this form of goto in Perl. (There is in Perl another form of goto (the "goto &name" version) which is very useful for some advanced techniques, but that's a different story and this is not the subject now.)

But as a simple flow control statement, I am very skeptical. IMHO, Perl offers all the flow control statements that are needed for a good structured programming, the goto statement should probably not be used at all (except for the special goto coderef version mentioned above).

Edit: oops, many answers while I was typing, sorry for just essentially saying the same thing as others.

1. do some stuff in the loop, n times
2. When some condition is true, go to end of loop...
         that is, to the zero-length&height line between the last instruction and the (whatever) outside the loop
3. and just sit there... interminably.

That effectively halts the code and maybe the computer... and certainly halts my speculation about what you want to do, unless you mean to execute your spec as some sort of malware or prank.

Edit: Or last depending on what you meant.

Sounds like you have an XY problem.

Can you tell us about the problem you're trying to solve rather than asking about how to implement your chosen solution to that problem you haven't described?

The OP indicates he knows what next does, so I assume the reason to jump to the end of the loop is in order to do something there. I also assumed that the last thing should not be done unless we're skipping to the end. Here is my suggestion:

for ($i = 0; $i < 4; $i++) {
  print "Start $i ";
  if ($i == 2) {
    goto TWO;
  }
  print "End\n";
  next;
TWO:
  print "Middle\n";
}
[download]

Output:

Start 0 End
Start 1 End
Start 2 Middle
Start 3 End
[download]

... mechanism for going to the end of the loop ?

... and then doing what? Like most other respondents to the OP, I'm left with that question in my mind.

Be that as it may, you might also check out redo.

my $r = 0;
while ($r < 10) {
   print "one iteration\n";
   $r++;
} continue {
   $r = 10;
   print "I'm at the end but still don't exited the loop\n";
}
[download]

1. under what condition do you want to skip the loop activities?
2. what do you want to do when you bypass the contents of the loop(where do you want to go)?
3. once you have gone to where you want to go after #2 above, what do you want to do when you come back?

It seems to me that this all boils down to putting a next/(some conditional) in the appropriate place in the loop activities.

my $r = "ju";
while (1) {
  print uc $r if $r and $r ne "ju";  # do some processing
  $r and next;

# I'm now at the end of the loop
  print uc "hacker", "\n";  # adding missing word

# WARNING: uncomment the following line or push the button
  #not $r and last;
} continue {
  $r = <DATA>;
}
__DATA__
Just
Another
Perl
[download]