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

open (FH,$ARGV[0]) or print "could not open file" ;
my $info = <FH>;


while ($info=~ /(\w+ (-?\d+ )+)/)
{
        my $info =~ s/(\w+ (-?\d+ )+)//;
}

my @nums = split(/:/,$info);
my $word = shift (@nums);
my $sum = 0;
my $var = ($info);

foreach $var (@nums)
{
    $sum = $sum + $var;
}


my %hash = ($word = $sum);

print @nums;


close(FH);