Perl provides a means of attaching data to code. It's called a "closure".

for (qw(list_users load_user list_prods load_prod)) {
    my $name = $_;
    around $name => sub {
        ... $name is available here too ...
    };
}
[download]