sub curried {
  my @args = @_;
  sub { print(@args,@_); };
}
$sub = curried("xyz");
$sub->(abc);