#!/usr/bin/perl -w

use strict;
use warnings;

my @array = qw( a b c d e f g h );

# Code sample 1 -- for simplicity, just display each array item:

foreach (@array) {
    printf "%s\n", $_;
}