#!/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";
   }
}

##</code><code>##

print join( "    ", "  ", @top, $/);
for my $s ( @side ) {
    print "$s ";
    for my $t ( @top ) {
        print "  $t$s";
    }
    print $/;
}

##</code><code>##

gg hh kk jj
11 22 33 44

##</code><code>##

      gg    hh    kk    jj    
11   gg11  hh11  kk11  jj11
22   gg22  hh22  kk22  jj22
33   gg33  hh33  kk33  jj33
44   gg44  hh44  kk44  jj44