Select Code to Download

print Dumper @results;

print Dumper \@results;

[
   [
...
       [ '10710', 'cars by the rodeo drive', '43', undef]
   ]
]

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