#!/usr/bin/perl -l

my %str2int;
my @int2str;

$i=0;
for ('aaaa'..'zzzz') {
    $str2int{ $_ } = ++$i;
    $int2str[$i] = $_;
}