#!/usr/bin/perl -w

use strict;

my $entrada;
my %hash;

open(REPETICION, "< sinrepeticion1.txt") or die "sin repeticion1.txt no existe\n";


while ($entrada = <REPETICION>){ ##Mientras haya linias para leer del archivo sinrepeticion1.txt
    chomp($entrada);

    my($go, $fb)= split(" ", $entrada);##Las columnas separadas por un espacio del archivo sinrepeticion1.txt las define como dos variables diferentes
   # print STDERR "$fb\n";   
   

    push @{$hash{$go}},$fb; #Va añadiendo $fb despues de la variable $go
}
    
#print "$go\n";
#Para asociar cada término GO con sus fbgn correspondientes en cada linia utilizamos lo siguiente:
    
foreach my $goids (keys %hash){ 
    print "$goids\t";
    foreach my $fbgns(@{$hash{$goids}}){
	print "$fbgns\t";
    }
    print "\n";
}


close (REPETICION);

