Select Code to Download

#!/usr/bin/perl -w

...
        }
    }
}

for my $x ( 0 .. $#{ $family{$label}->[$names] } )
            {
                print "\t$family{$label}->[$names][$x]\n "; 
            }