# i am not strict

use Getopt::Long;
GetOptions("f=s@" => \@dadAlls, 
	   "m=s@" => \@mumAlls, 
	   "help" => sub { 
print "psquare: --f (male allele) --m (female allele)\n"; exit; });

unshift @mumAlls, ""; # for titles. 
@psquare = map { my $current = $_; [ map { sprintf("%-10s",$current . $_) } @mumAlls ] } @dadAlls; 
unshift @psquare, [map { sprintf("%-10s", $_) } @mumAlls];
map { print join "", @$_; print "\n"; } @psquare;