my @x = somefunction();
my @xs = map { 
    {
        name => $_,
        sub => sub { ... },
    }
} @x;

for (@xs) {
    no strict 'refs';
    *{ $_->{name} } = $_->{sub};
}
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.