DBI has a convienence function on the dbh that does the prepare, execute, and fetchall in one call. Getting an arrayref of hashrefs requires a special argument.

my $records = $dbh->selectall_arrayref($sql, { Slice => {} });
[download]