for (@array_keys){ for my $element ($hash{$_}){ my @val; for my $element1 ($element->[0]){ @val = values %$element1; } print "@val\n"; } } #OR @array_values = values %hash; for (@array_values){ for my $element ($_){ my @val; for my $element1 ($element->[0]){ @val = values %$element1; } print "@val\n"; } }