Select Code to Download

print @$ref{ qw/FirstName MiddleName LastName/ };

#Connect to the data source
my $dbh = DBI->connect(
  "DBI:CSV(RaiseError=>1,AutoCommit=>1,Taint=>1,ChopBlanks=>1):csv_sep
+_char=\t"
...
while(my $row = $sth->fetchrow_hashref) {
  print @$row{ qw(FirstName MiddleName LastName) };
}

my $statement = q{
  SELECT FirstName 
       , MiddleName 
...
    FROM filename
   WHERE FirstName = ?
};