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