for (my $x=0;$x < 5;$x++){ 
  $insertStatement->execute() or die($DBI::errstr); 
  $insertStatement->finish();
  my $id = $dbh->last_insert_id(undef,undef,undef,undef) 
           or die "no insert id $DBI::errstr $!"; 
  print "ID :",$id; 
  update1($id); 
}