my @names;
while (my ($key, $value) = each %names){
        push @names, "$key $value";
}
print join ', ',@names;