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