while ( my($key, $value) = each (\%params)){ $ausgabe .= "$key: $value \n"; }