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