#!/usr/bin/perl -w

use strict;

my @v;

while (<STDIN>) {

    @v = split ("\t", $_);
    open FILE, "+>", "$v[0].fa";
    print FILE $_;
    close FILE;
}
