Select Code to Download

$hnr{'MAIN'}        = { %list1 };
$hnr{'MAIN'}{'ZOP'} = { %list2 };
$hnr{'MAIN'}{'AP'}  = { %list2 };

$hnr{'MAIN'}        = \%list1;
$hnr{'MAIN'}{'ZOP'} = \%list2;
$hnr{'MAIN'}{'AP'}  = \%list3;

use Data::Dumper qw( Dumper );
use Tie::IxHash  ();
...
%{$hnr{'MAIN'}{'AP'} } = @zop_and_ap_init;

print Dumper(\%hnr);