use warnings;
use strict;

open (FN, "file1") or die $!;
open(OUT,">file2")or die $!;


my %hash;

while (){
    chomp;
    if (/(\d+)\s([\d\w]+\s[\d\w]+\s[\d\w]+)/){
        
        push @{ $hash{$1} },$2;            ###This is to save multiple elements into a key.
        
       }

}

7Â¥: Originally posted by ch_sunshine at 2012-09-17 13:59:48
ÓÃMERLINÈí¼þ¹ØÓÚibdºÍkinshipÆÀ¹À¹¦ÄÜ£¬¿ÉÒÔ¸ù¾ÝÄãµÄ.pedÎļþÄÚÈÝ·ÖÎö³ö¼Òϵ½á¹¹£¨°üÀ¨¼Òϵ´óС£¬ÊÀ´úÊýµÈһЩÐÅÏ¢£©¡£ Äã¿ÉÒÔ¿´Ò»Ï¹ÙÍøhttp://www.sph.umich.edu/csg/abecasis/Merlin/...

5Â¥: Originally posted by ch_sunshine at 2012-09-14 17:06:43
ÈôÊǵ¥´¿Ïë¿´¿´2¡¢4´ú¼ÒϵµÄ¸öÊýÐÅÏ¢£¬µ¹ÊÇÓÐÆäËû·½·¨Äܵõ½¡££¨±ÈÈ磺2´ú¼ÒϵÓÐN¸ö£©