for my $r (1..5) {
    print "$r\n";
    redo;
}