for $aref ( @result ) {
                         print "\t [ @$aref ],\n";
                     }

Gives output like

ARRAY(0x4b72d28) ARRAY(0x4ba58d8) ARRAY(0x4bdb108)

Print Dumper @results; Output looks like one below

$VAR1 = [ [ '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]

          ];