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