Another possibility is to use a C-style for loop:

{
   my (@arr, $elt);
   for (@arr=(0..2); ($elt, @arr) = @arr; print "Continue $elt\n" if @
+arr) {
      print "Iteration $elt\n";
   }
}
[download]