while ( my ($key, $reference) = each %key_hash){
    foreach my $temp (@{$reference}){
        print "$key, $reference\n";
    }
}