123
my $myprint = sub { print @_; }my $myprint_transformed = curry ($myprint, 3);$myprint_transformed->(qw/1 2 3/);