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