sub curry { my $f = shift; my $args = \@_; sub { $f->(@$args, @_) }; }