for(my $i = $start; $i < leonardo($order);$i++){
    print "$$tab_ref[$i]\n";
}

##</code><code>##

for my $i ($start .. leonardo($order) - 1) {
    print "$$tab_ref[$i]\n";
}

##</code><code>##

print "$$tab_ref[$_]\n" for $start .. leonardo($order) - 1;

##</code><code>##

use strict;
use warnings;

my $x = 5;

for (my $i = 0; $i < bar($x); $i++)
{
    print "for loop: $i\n";
}

print "----------\n";

for my $j (0 .. bar($x) - 1)
{
    print "foreach loop: $j\n";
}

sub bar
{
    my $y = shift;
    print "bar($y)\n";
    return $y;
}

##</code><code>##

19:23 >perl 1378_Smoothsort.pl
bar(5)
for loop: 0
bar(5)
for loop: 1
bar(5)
for loop: 2
bar(5)
for loop: 3
bar(5)
for loop: 4
bar(5)
----------
bar(5)
foreach loop: 0
foreach loop: 1
foreach loop: 2
foreach loop: 3
foreach loop: 4

19:23 >