my $sth=$dbh->prepare("INSERT INTO data_profile VALUES (?)");
while(<DATA>){
   $sth->execute($_)or die $dbh->errstr;
}
__DATA__
1   10
2   20