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

##</code><code>##

$i?$i=1:$i=0;