Как в perl сгенерировать все сочетания AAAA-ZZZZ?

a.k.a. http://otvety.google.ru/otvety/thread?tid=3dcdce6d3ff33749&fid=3dcdce6d3ff33749000456b70130cfe0&table=%2Fotvety%2Fuser%3Fsort%3Dwsmopts%26order%3Dwsnoa%26start%3D20%26userid%3D09861479939659363151%26tab%3Dwtmtor
в лучшем ответе huge представил программу на pyhon, мне также интересна реализация на perl. Помогите, пожалуйста, интересно сравнить. Если через цикл делать(for(;;)), придется делать много if {}, объем кода будет такой же, что и все сочетания:) Но, я думаю, все гораздо проще.

Примечание:
2SKYDOS
@a = (A,A,A,A)
for ($i = 0; $i<26; $i++) {
print $a[0].$a[1].$a[2].$a[3]++."\n";
} я в правильном направлении двигаюсь?:)

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.