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