My Perl Quiz

Question #13: What gets printed by the following program?
64% on 542 times asked

my ($x) = foo();
print "$x\n";

sub foo {
  return wantarray ? 'list context' : 'scalar context';
}