use bigint;2**-$_=~/^(100|..?)(??{$t[$&]="$_
"})/for-$$..0;print@t