use feature qw( say ); sub wp { my($x) = ($_[0] || 0); } sub np { my $x = ($_[0] || 0); } say wp(3); # 3 say np(3); # 3 say 0+wp(3); # 1 say 0+np(3); # 3