更改Perl中哈希值的输出

use Data::Dumper;

my %hash = (key1 => 'value1', key2 => 'value2');
print Dumper(\%hash);

$VAR1 = {
          'key2' => 'value2',
          'key1' => 'value1'
        };

use JSON;

my %hash = (key1 => 'value1', key2 => 'value2');
my $json_str = encode_json(\%hash);
print $json_str;

{"key2":"value2","key1":"value1"}

my %hash = (key1 => 'value1', key2 => 'value2');
my $output = "{";
foreach my $key (keys %hash) {
    $output .= "$key => $hash{$key}, ";
}
$output =~ s/, $//;  # 去除最后一个逗号和空格
$output .= "}";
print $output;

{key2 => value2, key1 => value1}