foreach (keys %a)
     {
     ...stuff about $a{$_}
     }