my $function = sub {my $v = shift; print ">> $v->{var} <<\n" };
  my $params = {var => 'exto'};
  $function->($params);