Select Code to Download

use Modern::Perl qw /2014/;
use DBI;
use Data::Dump qw /dump/;
...
    say dump($row);
}
$sth->finish();

{
  "names.firstname" => "John",
  "names.ID"        => 34267,
...
  "scores.ID"       => 55342,
  "scores.score"    => "2.0",
}