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.
        
       }

}

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

6Â¥: Originally posted by µ­À¶ÓÄÏã at 2012-09-14 19:46:55
±ÈÈçÄØ£¿...

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/...

8Â¥: Originally posted by µ­À¶ÓÄÏã at 2012-09-18 16:10:03
¶àл£¬ÎÒÈ¥ÊÔÒ»ÏÂ
¶ÔÁË£¬ÇëÎÊÔõô¸öÄã¼Ó·Ö£¿...

9Â¥: Originally posted by ch_sunshine at 2012-09-18 17:33:07
²»ÖªµÀ  ÎÒÊǸÕÉêµÄÕâ¸ö ¡£ Ï£ÍûÄÜ°ïµ½Äã...