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

my $Usage = <<ENDUSE;
Usage: $0 [punnett_square_specs.file]

 input data should contain two rows of values:
  first row lists pairs for the top of the punnett square
  second row lists pairs for the side of the punnett square

ENDUSE

die $Usage if(@ARGV and ! -r $ARGV[0]);

my @top = split /\s+/, <>;
my @side = split /\s+/, <>;

for my $t ( @top ) {
   for my $s ( @side ) {
      print "$t$s\n";
   }
}