>>72
いやいや敢えてこんな感じで。

my $m = 25;
$_ -= $m--, print chr $_ - 32, chr and --$m for reverse 97..122;