use DBI;
use Data::Dumper;

my $dbh = DBI->connect( ... );

# Example 1: List of Lists
print Dumper $dbh->selectall_arrayref('select id,name from status');

# Example 2: List of Hashes
print Dumper $dbh->selectall_arrayref(
 'select id,name from status',
 { Slice=>{} },
);