use warnings;    
use strict;
use Text::CSV;
use DBD::Oracle;

my $exitStatus = 0;

# Connect to database and disable autocommit
my $dbAgent = OracleAgent->dbLogin(dbName);
   $dbAgent->connect();
   $dbAgent-> setAutoCommit(0);

##</code><code>##

foreach my $file (@csvFile) 
 {
   chomp ($item);
   &insertRecords($file);
 }

sub insertRecords 
{
 my $fileToInsert = shift;
}