#!/usr/bin/perl -w
use strict; # always
$_ = join("",('A' .. 'G'), reverse('A' .. 'F'),"\n");
foreach my $letter (reverse ('A' .. 'G')) { print; s/$letter/ /g; }