print Dumper @results;

##</code><code>##

print Dumper \@results;

##</code><code>##

[
   [
       [ '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]
   ]
]

##</code><code>##

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