#!/usr/bin/perl
use strict;
use warnings;

my(%pp);
my(@acgnt)=( ' ', 'A', 'C', 'G', 'N', 'T' );
my($i);
for($i=11;$i<100000;$i++)
{
  my($s, $o, @s);
  while($i =~ /6/)
  {
    $o=index(reverse($i),'6');
    $i+=5*10**$o;
  }
  $s=sprintf "%04d", $i;
  @s=split('',$s);
  @s = map { $acgnt[$_] } @s;
  $s=join('', @s);
  $s =~ y/ //d;
  $pp{$s}=join('', sort(@s));
}

#print out the lookup table (not really part of the initializer)
my($k, $v);
while(($k,$v)=each %pp)
{
  print "$k = $v\n";
}