linia.pl

#!/usr/bin/perl -w

use strict;

my @v;

while () {

@v = split ("\t", $_);

open FILE, "+>", "$v[0].fa";

print FILE $_;

close FILE;

}