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