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