my @letters = ('a'..'z');
for our $letter (0..$#letters) {
  $letters[$letter] =~ /(?{ print $letter })(?!)/;
}