undef $_;
$_->[0];
print $_;
__END__
ARRAY(0x812f180)

##</code><code>##

my %bill;

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

##</code><code>##

my %bill;

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

	$bill{ $project } = {} if not exists $bill{ $project };

	$bill{ $project }{ $worker } = []
		if not exists $bill{ $project }{ $worker };

	push @{ $bill{ $project }{ $worker } }, $time;
}