my $target;
my $type;
my $rel;
my $relatum;
my %rel=();
my %seen = ();
my %relof=();
my @target;
my @relatum;
my$el;

open INPUTTOPROCESS,$input_filetuple;

while(<INPUTTOPROCESS>){
    chomp;
    ($target,$type,$rel,$relatum) = split "[\t ]+",$_;
    if ($rel =~ m/hyper/) {
        print $target."==>".$relatum."\n";
        if (!($seen{"target"}{$target}++)) {
	push @target,$target;
        }
        if (!$seen{"relatum"}{$relatum}++) {
	push @relatum,$relatum;
        }
     
     
     
    }
    print $target."==>";
     #$relof{$target} = @relatum;
     foreach $el (@relatum){
        print $el.", ";
        
     }
    print "\n";
   
}