Hi there everybody.
After two years of no coding at all, I'm back to perl, but it seems like I've lost all my (very few indeed) knowledge.
My problem now is this one. I have an input file which looks like the following:

alligator-n    amphibian_reptile    event    sleep-v
alligator-n    amphibian_reptile    event    swim-v
alligator-n    amphibian_reptile    event    walk-v
alligator-n    amphibian_reptile    hyper    animal-n
alligator-n    amphibian_reptile    hyper    beast-n
alligator-n    amphibian_reptile    hyper    carnivore-n
alligator-n    amphibian_reptile    mero     foot-n
alligator-n    amphibian_reptile    mero     jaw-n

[download]

What I need to do is check for the value in the third column to be "hyper" and, if it is, create a hash which has the value in the first column as a key and the list of all the corresponding fourth column values as value.
Basically I'd like for it to be: alligator-n-->(animal-n, beast-n, carnivore-n)

I managed to do very little since it looks like I'm incapable of grasping the concept of list.
I did the following: 

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";
   
}

[download]

but I know it is wrong in oh so many ways.
I'm very disappointed in myself and every suggestion would be really appreciated so I can finally grasp how this works.
Thanks.
Giulia

In reply to Array of arrays? by remluvr

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.