Select Code to Download

# change @a on first line to:
my @a = ("...
...

# or change the for loop to use $_ instead of $a :)
foreach (@a) {print chr length}