Help for this page

Select Code to Download


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