sub myfunc {
   my $arg = @_ ? $_[0] : $_;
   for ($arg) {
      ...
   }
}

##</code><code>##

sub myfunc {
   for (@_ ? $_[0] : $_) {
      ...
   }
}