Get the Keys in Hash of Array - Perl

Question

I am trying to write a script where i need to work on Keys of HASH and i am struggling to extract all the keys of HASH. Here is my Code:

use strict;
use warnings;

my %HOA = (
                "age" => [20 ,25],
                "Name" => ["Raj" ,"Kiran"]
            );

foreach my $key ( keys%HOA){
print "Key -> $HOA{$key}\n";
my @array = @{$HOA{$key}};
    foreach my $val (@array){
        print "val -> $val\n";
}
}

I need to store all the keys in an array. Can some on help me out?

Answer 1

This will give you all the array elements from the hash in one array.

use strict;
use warnings;

my %HOA = (
    "age" => [20 ,25],
    "Name" => ["Raj" ,"Kiran"]
    );

my @array=map @{$HOA{$_}},keys %HOA;

foreach my $val (@array)
    {
    print "$val\n";
    }