#!/usr/bin/perl -w
use strict;

my $numTop;
my $numSide;
my @top;
my @side;

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

for( my $x = 0; $x < $numTop; $x++ )
{
  print "Enter pairs ( xx ): ";
  chomp( $_ = <STDIN> );
  push @top, $_;
}

print "Number of pairs for side of punnett square:";
chomp( $numSide = <STDIN> );

for( my $y = 0; $y < $numSide; $y++ )
{
  print "Enter pairs ( xx ): ";
  chomp( $_ = <STDIN> );
  push @side, $_;
}

for( my $i = 0; $i < @top; $i++ )
{
  for( my $j = 0; $j < @side; $j++ )
  {
     print "$top[$i]" . "$side[$j]\n";
  }
}