I'm trying to use a variable in the name of a subroutine, like so:

    foreach my $x ("email_zip", "email_txt", "cp_zip", "cp_txt") {
        if ($res = _send_$x($domain, $file, $date, $location)) {
            push (@results, $res);
        }

    sub _send_email_zip {
    }

    sub _send_email_txt{
    }

    etc...

However, I'm getting the following error message:
"Can't locate object method "_send_" via package "email_zip" (perhaps you forgot to load
"email_zip"?)"

So, then I thought I could use the whole subroutine name in the foreach
loop: ("_send_email_zip", "_send_email_txt", etc), but I cannot figure
out if there is a way to get this to work.

Does anyone know of a way to use a variable in the name of a subroutine?