Select Code to Download

#!/usr/local/bin/perl
use strict;
...
                }
        print "Row# ", $i+1, " has $count columns\n";
        }

for(my $i = 0; $i<=$#AoA;$i++){
        my $count = @{$AoA[$i]};  
        print "Row #: ", $i+1, " has $count columns\n";
        }