Help for this page

Select Code to Download


  1. or download this
    $hnr{'MAIN'}        = { %list1 };
$hnr{'MAIN'}{'ZOP'} = { %list2 };
$hnr{'MAIN'}{'AP'}  = { %list2 };
  2. or download this
    $hnr{'MAIN'}        = \%list1;
$hnr{'MAIN'}{'ZOP'} = \%list2;
$hnr{'MAIN'}{'AP'}  = \%list3;
  3. or download this
    use Data::Dumper qw( Dumper );
use Tie::IxHash  ();
...
%{$hnr{'MAIN'}{'AP'} } = @zop_and_ap_init;

print Dumper(\%hnr);