#! usr/bin/perl -w # polyfive means Polybius 6x6 # script prints a 6x6 polybius without keyword use Term::ANSIColor; my $i; my @alpha = qw(A 1 B 2 C 3 D 4 E 5 F 6 G 7 H 8 I 9 J 0 K L M N O P Q R S T U V W X Y Z); print color 'bold blue'; print "\t 1 2 3 4 5 6\n"; # row number for ($i=0; $i<=35; $i++) { print "\n".($i/6+1)."\t" if (($i) % 6 == 0); print " $alpha[$i]"; } print color 'reset'; print "\n";