Select Code to Download

$code = sub { wantarray ? ('foot','ball') : 'soccer' };

...

print $x;
print @x;

$code = sub { wantarray ? ("foot","ball") : "soccer" };

...

print $x;
print @x;