#!perl

use 5.12.0;
use warnings;

use List::Util qw{sum};

my $total = 0;

while (<DATA>) {
    $total += sum split;
}

say $total;

__DATA__
1 2 3 4 5 6
1 2 3 4 5 6