my $l;

to

my $l=0;