while (<$fh>){
    chomp;
    my @vals = split /\t/; 
    $sth->execute(@vals);
}