If you can simplify your data structure, you can simplify your code:

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
[download]