Try

#! perl -sw
use strict;
use 5.010;
use threads;

sub putData{ say( "PutData: $_" ), sleep 1 for 1 .. 10 }
sub getData{ say( "GetData: $_" ), sleep 1 for 1 .. 10 }
sub prcData{ say( "PrcData: $_" ), sleep 1 for 1 .. 10 }

my @events = qw[ putData getData prcData ];

my @threads = map async( \&{$_} ), @events;

$_->join for @threads;
[download]