my %h=(ab=>"12",
       ac=>"14",
       ad=>"45");
my $sum;
foreach (values(%h)) {
    my $log2 = &log_2($_);
    $sum +=$log2;
}
print "$sum \n";