在perl中反转多值哈希

my %hash = (
    key1 => [value1, value2, value3],
    key2 => [value4, value5],
    key3 => [value6, value7, value8, value9]
);

my %reversed_hash;
foreach my $key (keys %hash) {
    foreach my $value (@{$hash{$key}}) {
        push @{$reversed_hash{$value}}, $key;
    }
}

foreach my $key (keys %reversed_hash) {
    print "Key: $key\n";
    print "Values: @{$reversed_hash{$key}}\n";
}