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