in reply to Re^2: fun(?) with +=in thread fun(?) with +=
$foo = @ARGV ? shift : 1;
(I think you may have the 1 and shift switched.)