use strict; use warnings; my %h; push @{$h{CUST}}, { NAME => 'Mr.y', ADD => 'Hell', } ; push @{$h{CUST}}, { NAME => 'Mr.z', ADD => 'Hell', } ; push @{$h{ADMIN}}, { NAME => 'Mr.x', ADD => 'Hell', } ; my $val = $h{CUST}; for my $href (@{ $val }) { print "$href->{NAME}\n"; } __END__ Mr.y Mr.z