my $i; # change to my $i = '000';