Perl6
1my $iterator = 0; 2say [+] slurp.subst('"', '', :g).split(",").sort.map(++$iterator * *.comb.map(*.ord-64).sum)