#!/usr/bin/perl -w
use strict;
use DBI;
my $AoA = [ [qw(1 Hacker)]
          , [qw(2 Perl)]
          , [qw(3 Another)]
          , [qw(4 Just)]
          , [qw(5 junk)]
          ];
{
my $dbh=DBI->connect('dbi:AnyData(RaiseError=1):');
$dbh->ad_catalog('t','ARRAY',$AoA,{cols=>'id,phrase'});
print join ' ', @{ $dbh->selectcol_arrayref("
    SELECT phrase FROM t WHERE phrase <> 'junk' ORDER BY id DESC
")};
}
