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);

##</code><code>##

{ Joe => [12, 45], Mike  => [7, 14], Rich => [17, 10]}

##</code><code>##

$VAR1 = {
          'Joe' => [
                     '12',
                     '45'
                   ],
          'Rich' => [
                      '17',
                      '10'
                    ],
          'Mike' => [
                      '7',
                      '14'
                    ]
        };