#!/usr/bin/perl -w
use strict;
use Data::Dumper;

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',
                    };
                           

print Dumper \%h;

foreach my $href  ( @{$h{CUST}})
{
   print " CUST NAME: $href->{NAME} \n";
}

__END__
$VAR1 = {
          'ADMIN' => [
                       {
                         'NAME' => 'Mr.x',
                         'ADD' => 'Hell'
                       }
                     ],
          'CUST' => [
                      {
                        'NAME' => 'Mr.y',
                        'ADD' => 'Hell'
                      },
                      {
                        'NAME' => 'Mr.z',
                        'ADD' => 'Hell'
                      }
                    ]
        };
 CUST NAME: Mr.y 
 CUST NAME: Mr.z 
 
##</code><code>##

#one way for initial structure
foreach my $aref  ( @{$h{CUST}})
{
   print " CUST NAME: $aref->[0]->{NAME} \n";
}

#another way for initial structure
foreach my $href  (map{$_->[0]} @{$h{CUST}})
{
   print " CUST NAME: $href->{NAME} \n";
}