push( @{$managers{$mgr}}, $sub_tot_upd_by_mgr);
       push( @{$managers{$mgr}}, $sub_tot_events_by_mgr);

for my $t ( keys %managers ) {
        for my $b (0 .. $#{$managers{$t}}) {
        print "$t and $b is $managers{$t}[$b]\n";
        }
}