$foo = shift;
$foo = 1 unless defined $foo;

##</code><code>##

$foo = shift // 1;