Select Code to Download

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

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