my $joined;
foreach my $key ( keys( %hash ) ) {
  $joined .= "$key = $hash{$key}<br>"; 
}