$foo = shift or 1;
# is the same as
($foo = shift) or 1;