I'm guessing pack is faster, but just for variety here's another option:

my $n = 42;
my $str = join '',(("a".."z") x ($n/26 +1))[0..$n-1];
print $str,"\n";
print length($str),"\n";
[download]