#!/usr/bin/perl

use warnings;
use strict;

my @a = ('a' .. 'z');

my $i;
foreach $i (@a) {
    print "$i ";
}
print "\n";