Excellent answer, with one small adjustment to the last example to do with redo ..

my $flag = 0;
foreach (1..10) {
    print("$_  ");
    if ($_ == 9 && $flag != 1) {
        $flag=1;
        redo;
    }
}
[download]

I have initialized flag to zero at the beginning of the loop. This was, of course, understood :) by all readers, but for the newcomer, it might be helpful.