open (CSVFILE, input.csv);
while (!eof(CSVFILE)) {
   $currLine = <CSVFILE>;
   split /\,/, $currLine, @curline;
   dbi_sub (@currline);
}