Statements end with semicolons. Blocks do not:

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

You also have a problem in that you instantiate $sub_total with a value of zero every time through the loop, right before you add a value to it, so it will always equal that value. This is probably not what you want. You should move the my line that creates it to before your loop, so it can accumulate inside the loop.