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


##</code><code>##

#Connect to the data source
my $dbh = DBI->connect(
  "DBI:CSV(RaiseError=>1,AutoCommit=>1,Taint=>1,ChopBlanks=>1):csv_sep_char=\t"
);

my $statement = q{
  SELECT *
    FROM filename
   WHERE FirstName = ?
};

my $sth = $dbh->prepare($statement);
$sth->execute($value);

while(my $row = $sth->fetchrow_hashref) {
  print @$row{ qw(FirstName MiddleName LastName) };
}


##</code><code>##

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