while (my $series = shift @series) {
   my $nums = shift @series;
   $empwork{$series}{TTL} += $nums;
   $empwork{$series}{CNT}++;
}