use strict;
use warnings;
use Data::Dumper;

use DBI;
my $dbh = DBI->connect( 'dbi:CSV:', '', '',
    {f_dir        => '.',
     f_ext        => ".asc/r",
     csv_sep_char => "\t",
    })
    or die "Cannot connect $DBI::errstr";

$dbh->{csv_tables}{table1} = {
    col_names => [qw/ alpha bravo charlie delta echo foxtrot /],
};

my $sth = $dbh->prepare(
    'select alpha, charlie, echo from table1
     order by alpha, bravo, charlie, delta, echo, foxtrot'
) or die $dbh->errstr;
$sth->execute or die $sth->errstr;

print Dumper( $sth->fetchall_arrayref({}) );