Help for this page
#!/usr/bin/perl -w use strict; ... CUST NAME: Mr.y CUST NAME: Mr.z
#one way for initial structure foreach my $aref ( @{$h{CUST}}) ... { print " CUST NAME: $href->{NAME} \n"; }