#!/usr/bin/perl -w

use strict;  my @a = qw(j a p h); my ($n,$s,$t) = ("\n"," ","\t");  for (my $x=0; $x<=10; $x++) { print $s x5,$a[0]x$x; print $s x5,$a[1]x$x; print $s x5,$a[2]x$x; if ($x <= 6) { if ($x == 1) { print $a[2]x9; } elsif ($x == 6) { print $a[2]x9; } else{ print $s x5,$a[2]x$x; } } if ($x == 6) { print $s x6,$a[3]x$x; } elsif ($x > 6) { print $s x14,$a[3]x$x; } else { print $s x5,$a[3]x$x; } print $s x9,$a[3]x$x; print $n; }  my $w=13;  for (my $x=0; $x<=3; $x++) { print $s x$x,$a[0]x$w; print $s x6,$a[1]x3; if ($x == 1) { print $a[1]x9; } else { print $s,$s,$s x3,$a[1]x3; } print $s x6,$a[2]x8; print $s x13,$a[3]x12; if ($x == 1) { print $a[3]x18; } else { print $s x7,$a[3]x12; } print $n; $w-=3; }