Select Code to Download

>perl -E"sub mk { my $x=$_[0]; sub { $x } }  $x=mk('a'); $y=mk('b'); s
+ay $x->(),$y->()"
ab

# The "=" is a scalar assignment operator, so:
# - f() is evaluated in scalar context.
...
# - The assignment returns ($x) in list context, or
# - the number of items returned by f() in scalar context.
my ($x) = f();