Help for this page
$x = shift || 4;
$x = shift; $x = defined $x ? $x : 4; ... # Or check if there is anything left on @_ and shift if there is $x = @_ ? shift : 4;