#!/usr/bin/perl -w
use strict;
my @arr;
$arr[0] = "hello";
$arr[1] = "goodbye";
$arr[2] = "yesterday";
$arr[3] = "today";
$arr[4] = "tomorrow";
foreach (@arr) { print $_ . "\n"; }
exit;