in reply to Why are my hash keys undefined?

Try replacing: 
chomp $line;

[download]
with: 
$line =~ s/[\r\n]+//g;

[download]
It might solve your problem if it is related, as I suspect, with line endings.

In Section Seekers of Perl Wisdom