my $a = '0';
print "3f\n" if $a;