#! usr/bin/perl -w

#	mkbeau is Make Beaufort Table
#		script prints out a B-table
#

use Term::ANSIColor;

my $i;					# counter
my @plaintextAlpha = ('a'..'z');	# plaintext alphabet
my @alpha = reverse(('A'..'Z'));	# backwards alphabet

print color 'bold blue';
print "\t@plaintextAlpha\n\n";		# print plaintext alphabet
print "$alpha[0]\t";
print color 'reset';
print "@alpha\n";			# print the first line

for ($i=1; $i<=25; $i++)
{
	push(@alpha, shift(@alpha));	# take off first letter, add to end
	print color 'bold blue';
	print "$alpha[0]";
	print color 'reset';
	print "\t@alpha\n";		# print and repeat
}