sub foo {
  my ($a) = qw(first second third);
};

printf "in scalar context: %s\n", scalar foo();
printf "in list context: %s\n", join ',', foo();

##</code><code>##

in scalar context: 3
in list context: first