$gah = join(', ', map { "$_ = $hash{$_}" } keys %hash);


# or


push @gah, "$k = $v" while (my ($k, $v) = each %hash);


$gah = join(', ', @gah);



##</code><code>##

$gah = join ', ', map { join ' = ', each %hash } 1..keys %hash;