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