sub do_stuff {
    my($x) = ($_[0] || 0);
    ...
}

##</code><code>##

my $x = 10;
print $x, "\n";

my ($y) = 10;
print $y, "\n";

--output:--
10
10