my $i ||=0 ; my $i =shift || 0;