Select Code to Download

my @db_colnames = qw( lastname firstname middlename );

my $rs = $schema
...
    my %data = $row->get_columns;
    print join("\t", @data{@db_colnames}), "\n";
}