Select Code to Download

my $j=0;
while ($j < $#AoA+1) {
...
    my $a = $var[1];
    my $b = $var[2];
}

$VAR1 = [
          [
...
            'b5'
          ]
        ];