Select Code to Download

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

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

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

use strict;
use warnings;
...
    print "bar($y)\n";
    return $y;
}

19:23 >perl 1378_Smoothsort.pl
bar(5)
...
foreach loop: 4

19:23 >