while(my $line = <INFILE> ) {
    $csv->parse($line);
    my ( $state,$city,$location ) = $csv->fields();  # assumming these
+ are col1,col2,col3
    $sth->execute($state,$city,$location) or die "Couldn't execute que
+ry: $dbh->errstr";
}
[download]

This will be slow. It would be a lot faster to do:

my $sql =<<SQL;
LOAD DATA LOCAL INFILE '$infile' 
INTO TABLE tbl_name
FIELDS TERMINATED BY ',' OPTIONALLY ENCLOSED BY '"'
SQL

$dbh->do($sql);
[download]

See LOAD DATA