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

print "Output loop\n";

for my $index (0 .. $#AoA) {
    print "$index\t@{ $AoA[$index] }\n";
}
foreach (@AoA) {
  print @{$_} . "_____________________________________________________________
__\n";
}