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