>>>>> "L" == Leo Razoumov <see_signature / 127.0.0.1> writes:

L> I do not understand why "my" is too complex to a user. It has been in Perl for
L> years and no one complained of its complexity. 

 OK, explain me this result

pigeon% cat a.pl
#!/usr/bin/perl -wl
use strict;
sub toto
{
    my $i = shift;
    my $m = $i if !($i % 5);
    $m++;
    print "$i : $m";
}
 
for (my $i = 0; $i < 15; $i++) {
    toto($i);
}
pigeon% 

pigeon% a.pl
0 : 1
1 : 1
2 : 2
3 : 3
4 : 4
5 : 6
6 : 1
7 : 2
8 : 3
9 : 4
10 : 11
11 : 1
12 : 2
13 : 3
14 : 4
pigeon% 


Guy Decoux