my %values_hash = (); while () { chomp; # parse lines $values_hash{$ACTNUM} += $value; }