use warnings;
use strict;
use Data::Dump qw(dump);
use Data::Dumper;

my @mans = qw / Joe Mike Rich /;
my @tot_updates = qw /12 7 17 /;
my @tot_events = qw /45 14 10 /;

  my %managers;
   
for (@mans) {
push( @{$managers{$_}}, shift@tot_updates);
       push( @{$managers{$_}}, shift@tot_events);
}

dump(\%managers);
print Dumper(\%managers);