perl -le'@a1=qw(ME K LE K HT ME LL);@a2=qw(10 4 1 5 6 7 19);map{$o{$_}+=shift@a2}@a1;print"$_=$o{$_}" for sort keys %o'