my $id = $ID[0];
   my $id_lc = lc $id;
   if ($ids{$id_lc}) {
       print "'$id' is duplicate\n";
   } else {
      $ids{$id_lc} = 1;
   }