#! perl
use strict;
use warnings;

my @j = ('a' .. 'g');
print join("\n", reverse @j);