#!perl -w
use strict;
use DBI;
my $aryref = [ ['Item1','2 foo','2 bar']
             , ['Item2','0 foo','1 bar']
             , ['Item3','1 foo','3 bar']
             , ['Item4','1 foo','2 bar']
             ];
my $dbh=DBI->connect('dbi:AnyData:');
$dbh->ad_import('tmp','ARRAY',$aryref,{col_names=>'c1,c2,c3'});
printf "%s\n",join ' ',@$_ for @{ $dbh->selectall_arrayref(
    'SELECT * FROM tmp ORDER BY c3 DESC, c2 DESC'
)};
__END__