print "Number of pairs for top of punnett square:";
chomp( $numTop = <STDIN> );
my @top = (0) x $numTop;

for ( @top )
{
  print "Enter pairs ( xx ): ";
  chomp( $_ = <STDIN> );
}