sub hash_join {
    my ($hash_ref, $sep1, $sep2) = @_;
    my $string = "";
    $string .= "${_}${sep}$hash_ref->{$_}${sep2}"
        for sort keys %$hash_ref;
    $string;
}

my $string = hash_join \%ENV, " = ", "\n";
print $string;