$_ .= "$k=$v," while ($k,$v) = each %hash;