Help for this page

Select Code to Download


  1. or download this
    undef $_;
$_->[0];
print $_;
__END__
ARRAY(0x812f180)
  2. or download this
    my %bill;

...
    my ( $time, $worker, $project ) = split /\t/, $_;
    push @{ $bill{ $project }{ $worker } }, $time;
}
  3. or download this
    my %bill;

...

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