sub ret_simple_returner {
  my $arg = shift;
  return ($arg, sub {$arg});
}

my %action = map ret_simple_returner($_), qw(this that);