foreach my $decimal (1 .. 100000000)
{
  ###convert $decimal to 12-base system
}