Select Code to Download

#!/usr/bin/env perl

...
alligator-n    amphibian_reptile    hyper    carnivore-n
alligator-n    amphibian_reptile    mero     foot-n
alligator-n    amphibian_reptile    mero     jaw-n

$ pm_array_of_arrays.pl
alligator-n-->(animal-n, beast-n, carnivore-n)

    if ($fields[2] eq $wanted_type) {
        if (! exists $data_capture{$fields[0]}) {
...
        }
        push @{$data_capture{$fields[0]}}, $fields[3];
    }