foo.pl

use strict;
use warnings;

# output:
# foo 
# bar 
combine({
  name => "foo",
  surname => "bar"
});

# create sub with defaults
my $f = partial({
  name => "larry",
  surname => "wall"});

# output:
# paul 
# wall
$f->({
  name => "paul"});

# output:
# larry 
# wall 
$f->();

sub combine {
  my ($args) = @_;
  print "$args->{name}\n";
  print "$args->{surname}\n";
}

sub partial {
  my ($defaults) = @_;
  return sub {
    my ($args) = shift || {};
    combine({%$defaults, %$args});
  }
}