note
borisz
<c>
use Data::Dumper;
my @a1 = qw(ME K LE K HT ME LL);
my @a2 = qw(10 4 1 5 6 7 19);
my %h;
$h{ $a1[$_] } += $a2[$_] for ( 0 .. $#a1 );
print Dumper( \%h );
__OUTPUT__
$VAR1 = {
'HT' => 6,
'ME' => 17,
'LE' => 1,
'K' => 9,
'LL' => 19
};
</c>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-224409">
Boris
</div></div>
616956
616956