for (my $eu=0;$eu<=(scalar(@identifier));$eu++){ foreach my $id(@idfeat) { if ($id eq $identifier[$eu]){ my $sth=$dbh->prepare("INSERT INTO dd VALUES('$identifier[$eu]','Feature')"); $sth->execute(); $sth->finish; } else {my $sth=$dbh->prepare("INSERT INTO dd VALUES('$identifier[$eu]','Bug')"); $sth->execute(); $sth->finish; } } }