Select Code to Download

#!/usr/bin/env perl
use strict;
...


my $results = $sth->fetchall_arrayref({});

$results->[0]; // Reference to a hash ref of Row_1
my %row_1 = %{$results->[0]}; // Hash of Row 1
...
}