Select Code to Download

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

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

in scalar context: 3
in list context: first