You should pass scalars to Dumper, so

print Dumper @results;
[download]

should be

print Dumper \@results;
[download]

This gives

[
   [
       [ '8959', 'The song by the three rivers', undef, undef ],
       [ '10710', 'cars by the rodeo drive', '38', undef],
       [ '10710', 'cars by the rodeo drive', '43', undef]
   ]
]
[download]

As you can see, the outer array (@results) contains a single element, your AoA.

You should therefore use

my $records = $result[0];
for my $record ( @$records ) {
   print "\t [ @$record ]\n";
}
[download]