A not-very-Perl-y way of looping

perl5i.pl

#!/usr/bin/env perl

use v5.14;
use warnings;
use perl5i::2;

[0 .. 5]->foreach(func($i) {
    say "current value of i is $i"
});

say 'done!'

__END__

$ perl perl5i.pl
current value of i is 0
current value of i is 1
current value of i is 2
current value of i is 3
current value of i is 4
current value of i is 5
done!