this is perl 5. Also, iterate correct hash.