#####################
my %hash = get_hash();

open(IN, "$in");
open(OUT1, "> $out1");
open(OUT2, "> $out2");
open(OUT3 ,"> $out3");

while (<IN>) {
    my @data = split /\s+/, $_;

    if (defined($hash{$data[0]})) {
        print OUT1 "$data[0]\n";
        print OUT2 join("\t", @data[1..$#data]) ."\n";
        print OUT3 join("\t", @{$hash{$data[0]}}) ."\n";
    }
}