#! /usr/bin/perl
use strict;
use warnings;
#use Data::Dumper;

my $linetotal=0;
my $gtotal =0;
my $n =0;

while (my $line = <STDIN>){
	#$line =~ s/^\s+|\s+\n$/ /g;
	#chomp ($line);
	my @numbers = split (/ /,$line);
		$n++;
 	#print Dumper \@numbers;
	foreach my $number (@numbers){
		$linetotal +=$number ;
		#chomp ($linetotal);
		
               
		
	}
#	$line =<STDIN>;
 print "Total in $n input is : $linetotal \n";	
	
       
}
$gtotal +=$linetotal;
	print "Grand Total is : $gtotal\n";