Select Code to Download

sub state {
1&index" AKALCAARAZCOCTDCDEFLGAHIIAIDILINKSKTKYLAMAMDMEMIMNNCMOMSMTOHN
+DNENHNJNMPANVNYOKORRISCSDTNTXUTVAVTWAWIWVWY",pop
}

#!/usr/bin/perl
use strict;
...
    }
  }
}