Yeah. Two things.

1. You still haven't signed up for an account. ;-)

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

   You loop through @{$reference} assigning the values to $temp but you never use it. Instead you print $key and $reference.