my %lookup = ( string1=>34, string2=>10, string3=>52, string4=>104, string5=>7 );

##</code><code>##

my @bits = split ':', 'string2:string4:totalName';
my $name = pop @bits;
my $total = 0;
for my $bit ( @bits ) {
    $total += $lookup{ $bit };
}
print OUTFILE "$name,$total";