my @x = somefunction(); my @xs = map { { name => $_, sub => sub { ... }, } } @x; for (@xs) { no strict 'refs'; *{ $_->{name} } = $_->{sub}; }