while (<$FH>)
{
        my @row = split /,/;
        $row[1] =~ s/"//g;
        $row[1] =~ s/^ //g;
        $sth->execute (@row);
}