dirtdart:

You don't have any trailing spaces on your keys, do you? You might try modifying your dump to something like:

while(my ($key, $value) = each(%names)) {
        print ".$key.\t".$names{$key}."\n";
}
[download]

or use Data::Dumper or some such...

...roboticus