untested

my $sth = $dbh->prepare("INSERT INTO dd VALUES( ?, ? )");
my %feat = map { $_ => 1 } @idfeat;
foreach my $ident (@identifier){
  my $result = $feat{$ident} ? 'Feature' : 'Bug';
  $sth->execute($ident,$result);    
}
[download]