chdir $directory;   
opendir DIR, "." || die "Cannot open $directory directory\n";

# Look for csv filenames...
my @csvFiles;
while (my $file = readdir DIR )  {
  if ( $file =~ /.csv$/i )  {
    chomp($file);
    push @csvFiles, $file;
  } # End of if csv file
} # End of While
closedir DIR;