foreach my $k(keys %hash) {
    print "Key: $k\n";
    for my $i(0..@{$hash{$k}}-1) {
        print " - ".$hash{$k}[$i]."\n";
    }
}