time perl -wle '
$n = shift; die "need a number" unless $n and $n =~ /^\d+$/; 
$a = "a" x $n; $c = 0; $e = 26**$n; 
while () { push @x, $a; $a++ and $c++; last if $c == $e } 
print scalar @x' 4