my $closure = sub { my ($x, $y) = @_; print "Got $x and $y\n"; };