my $count = defined $_[0] ? shift : 1;