my @mans = qw / Joe Mike Rich /; my @tot_updates = qw /12 7 17 /; my @tot_events = qw /45 14 10 /; for (@mans) { push( @{$managers{$_}}, shift@tot_updates); push( @{$managers{$_}}, shift@tot_events); } for $t ( $#managers ) { for $b ( keys %{$managers[$t]}) { print "$t and $b is $managers[$t]{$b}\n"; } }