use DBI; my $dbh = DBI->connect($dsn,$user,$pass,{ShowErrorStatement=>1,RaiseError => 1, AutoCommit=>0}); my $aref = $dbh->selectall_arrayref("select * from $table",{Slice=>{}}); # gives ref to AoH