sub func {
   for (my $s = @_ ? $_[0] : $_) {
      ...
   }
}