in reply to Hash value test of zero

add 

use warnings;

[download]
and try again...

In Section Seekers of Perl Wisdom