http://www.perlmonks.org?node_id=1195441

Can you tell me:

  1. How does this get parsed? (e.g. try adding parentheses to show precedence)
  2. Given that the body of each of the four subs is { print Dumper(\@_) }, what is the output?
$_ = "#x"; my @a = qw/b c/; foo /#(\w+)/, @a; bar /#(\w+)/, @a; quz /#(\w+)/, @a; baz /#(\w+)/, @a;

Hint:

Solution: