use strict;
use warnings;
use feature 'say';

=pod

State trooper: Would you please recite the alphabet.

Perl Hacker: OK, ociffer...

=cut

say 'A' .. 'Z';

=pod

State trooper: Now do it backwards, please.

Perl Hacker: 

=cut

say reverse 'A' .. 'Z';