$h(a) = 20;
should be
$h{a} = 20;
(note the braces rather than parenthesis)

while (($k, $v) = %h)
should be
while (($k, $v) = each %h)