Another sketch for further inspiration:

#!/usr/bin/env perl

#     $Id: async.pl,v 1.8 2017/07/03 19:46:43 karl Exp karl $

use strict;
use warnings;
use threads;
use MCE::Hobo;
use feature qw(say);

my %actions = (
    nose => sub {
        my $hobo = mce_async { shift } "kumquat";
        ( $hobo->pid, $hobo->join );
    },
    foo => sub {
        my $hobo = mce_async { shift } "bar";
        ( $hobo->pid, $hobo->join );
    },
);

say join " ", $actions{q(nose)}->();
say join " ", $actions{q(foo)}->();

__END__
[download]

Please note: if you say # use threads it forks.

This is not quite correct:

"...Only the shared-server is a thread when loading threads. Hobo workers are spawned via fork even when loading threads." marioroy

See also MCE::Hobo

Best regards, Karl