for my $i (0 .. $#AoA){
    my $aref = $AoA[$i];
    print "array is: $AoA[$i]\n";
    $arg1 = $AoA[$i] if $AoA[$i][0] == "160001";
    $arg2 = $AoA[$i] if $AoA[$i][0] == "170001";
    $arg3 = $AoA[$i] if $AoA[$i][0] == "670002";
}

##</code><code>##

for my $i (0 .. $#{$AoAref}){
    my $aref = ${$AoAref}[$i];
    print "array is: ${$AoAref}[$i]\n";
    $arg1 = ${$AoAref}[$i] if ${$AoAref}[$i][0] == "160001";
    $arg2 = ${$AoAref}[$i] if ${$AoAref}[$i][0] == "170001";
    $arg3 = ${$AoAref}[$i] if ${$AoAref}[$i][0] == "670002";
}

##</code><code>##

for my $i (0 .. $#$AoAref){
    my $aref = $AoAref->[$i];
    print "array is: $AoAref->[$i]\n";
    $arg1 = $AoAref->[$i] if $AoAref->[$i][0] == "160001";
    $arg2 = $AoAref->[$i] if $AoAref->[$i][0] == "170001";
    $arg3 = $AoAref->[$i] if $AoAref->[$i][0] == "670002";
}

##</code><code>##

for my $i (0 .. $#$AoAref){
    my $aref = $AoAref->[$i];
    print "array is: $aref\n";
    $arg1 = $aref if $aref->[0] == "160001";
    $arg2 = $aref if $aref->[0] == "170001";
    $arg3 = $aref if $aref->[0] == "670002";
}

##</code><code>##

for my $aref (@$AoAref) {
    $arg1 = $aref if $aref->[0] == "160001";
    $arg2 = $aref if $aref->[0] == "170001";
    $arg3 = $aref if $aref->[0] == "670002";
}