sub multi {
  return 1,2,'a','b',3,4;
};

print $_ for (multi);