my %bill; while( <$records_fh> ) { my ( $time, $worker, $project ) = split /\t/, $_; push @{ $bill{ $project }{ $worker } }, $time; }