#!/usr/bin/perl -w

use strict;

my @a = qw(hello world good bye);

print "[$_]\n" foreach @a;