Help for this page
NAME NUMBER COLOR GNAEUS 1 BLUE ... FABIUS 2 YELLOW FABIUS 1 RED ....
undef my %hash; open IN, $ARGV[0]; ... my ($name,$number,$color) = split /\t/, $_; $hash{$name}{$number}{$color}++; }
my %returnedHash = grep / $hash{"GNAEUS"}{"1"} / keys %hash; ... } } }