[ÇóÖú] Çó½âÂ룬ʲôÒâ˼

#!/usr/bin/perl -w
use warnings;
use strict;
use bio::seqio;

my $idfile=$argv[0];
my $datafile=$argv[1];

open (w,"<$idfile") || die($!);
my %gene;
while(<w>)
  {
      chomp;
      $gene{$_}++;
  }
close w;