foreach my $key (keys %hash) {
    foreach my $val (@{$hash{$key}}) {
        print "$key --> $val\n";