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

##</code><code>##

$VAR1 = [
          [
            '0.93',
            'a1',
            'b1'
          ],
          [
            '0.89',
            'a2',
            'b2'
          ],
          [
            '0.88',
            'a3',
            'b3'
          ],
          [
            '0.87',
            'a4',
            'b4'
          ],
          [
            '0.86',
            'a5',
            'b5'
          ]
        ];