}
    push @{ $lines{$key}}, $_;
    push @{ $totals{$key}}, $sub_total;
}