#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";
}