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