#!/usr/local/bin/perl

$grandtotal = 0;
$line = <STDIN>;
while ($line ne "") {
        $linetotal = 0;
        @numbers = split(/ /, $line);
        $numbercount = 1;
        while ($numbercount <= @numbers) {
                $linetotal += $numbers[$numbercount-1];
                $numbercount++;
        }
        print("line total: $linetotal\n");
        $grandtotal += $linetotal;
        $line = <STDIN>;
}
print("grand total: $grandtotal\n");
