my %HoA = ( AdhLnk => \@AdhLnk, MtrLnk => \@MtrLnk, SltLnk => \@SltLnk, OthLnk => \@OthLnk, 
	AdhDlk => \@AdhDlk, MtrDlk => \@MtrDlk, SltDlk => \@SltDlk, OthDlk => \@OthDlk );

print "Output loop\n";

for my $name (keys %HoA) {
    print "$name\t@{ $HoA{$name} }\n";
}