#!perl -w
use strict;
use DBI;
use Data::Dumper;
my $dbh=DBI->connect('dbi:AnyData(RaiseError=1):');
my($create,$populate,$query,$keyfield)=split /\n/,join '',<DATA>;
$dbh->do($_) for ($create,$populate);
print 'AoA ', Dumper $dbh->selectall_arrayref($query);
print 'AoH ', Dumper $dbh->selectall_arrayref($query,{Slice=>{}});
print 'HoH ', Dumper $dbh->selectall_hashref ($query,$keyfield);
__DATA__
CREATE TABLE x (id INTEGER, phrase VARCHAR(20))
INSERT INTO x (id,phrase) VALUES (1,'foo')
SELECT id,phrase FROM x
id