$ perl
sub foo {
  my $x = sub {print "@_"};
  &{$x};
}

foo qw/bar baz/;
^D
bar baz