if(defined($A_list)){
    for my $cpt (0..$#$A_list) {
        ...
    }
    print "\n\n";
}