my $string = join '',0..9,'a'..'z';
$string =~ s/([a-z])/$1\u$1/g;
print $string;

__DATA__
0123456789aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ