my $zero ;
...
print "$zero" ;