for (my $i=0; $i<5; $i=$i+1) {
    say($i);
}

__END__
0
1
2
3
4