sub b262b10{ my ($n,$x)=(0,'A'); ++$n until $x++ eq $_[0]; ++$n } print $_, ':', b262b10( $_ ), $/ for qw[A Z AA AZ BA ZZ AAA ZBA] A : 1 Z : 26 AA : 27 AZ : 52 BA : 53 ZZ : 702 AAA : 703 ZBA : 17629