my $dbh = DBI->connect('dbi:CSV:', "", "",
             {
                 f_dir => "$_ENV::LogsFilesDIR/",
                 f_ext => ".txt",
                 eol => "\n",
                 sep_char  => "~",
                 RaiseError => 1,
             }) or die $DBI::errstr;

print $ceridian_raw_files;
if ($ceridian_raw_files =~  m/^$_ENV::new_entrants/i)
{
print "inside dbi $ceridian_raw_files\n";
my $sth = $dbh->prepare("select forename  from  $ceridian_raw_files");

$sth->execute();
my $res = $sth->fetchall_arrayref();

use Data::Dumper;
print  $res;