my $sql = 'INSERT INTO person VALUES (?, ?, ?)';
my $dbh = DBI->connect(YOUR CONNECTION DETAILS)
  or die DBI::errstr;
my $sth = $dbh->prepare($sql);

my $csv = 'test.csv';
open my $data, '<', $csv or die "Cannot Open File: $!\n";

while (<$data>) {
  chomp;

  $sth->execute(split /,/);
}