What do you think this loop will do?

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