Короткая версия:
$, = "\n";
print keys %hash;
Или внутри более крупного скрипта:
{
local $, = "\n";
print keys %hash;
}
Чтобы поместить его в переменную, для печати в окне сообщения в соответствии с вашими комментариями:
my $var = join "\n", keys %hash;