Select Code to Download

dataset 1:
vr 1 2 3 5 
o1 a a b b 
...
3  2004  22  b  d  f
4  2004  23  
5  2006  25  b  d  f

$ids = `head -1 dataset1`;  
@matchid = split(" ", $ids);
shift(@matchid);
...

close(OUT);
close(IN);