Help for this page
#!/usr/bin/perl -w ... } } }
for my $x ( 0 .. $#{ $family{$label}->[$names] } ) { print "\t$family{$label}->[$names][$x]\n "; }