#!/usr/bin/perl
use strict;
use warnings;

my @AoA;
                    
while (my $line = <DATA>) 
{
   my @tmp = split ' ',$line;    
   push @AoA, [ @tmp ];    
}


## Print the totals for each line ###
## and the final grand_total      ###   

my $grand_total;

foreach my $row_ref (@AoA)
{
    my $line_total;
    
    foreach my $num (@$row_ref)
    {
       $line_total += $num;
    }
    
    print "Line Total: $line_total\n";
    $grand_total += $line_total;
}

print "Grand Total: $grand_total\n";

=Prints:
Line Total: 150
Line Total: 75
Line Total: 55
Grand Total: 280
=cut

    
__DATA__
10 20 30 40 50
15 25 35
1 2 3 4 5 6 7 8 9 10