# Code that connects to database

my $sth = $dbh->prepare('
  Insert into person_info VALUES(?,?,?)');

# Code that opens your file.

while (<FILE>) {
  my @row = split /,/;
  $sth->bind_param(1, $row[0]);
  $sth->bind_param(2, $row[1]);
  $sth->bind_param(3, $row[2]);

  $sth->execute()
    or warn "Couldn't execute INSERT:  $DBI::errstr\n";
}