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

print "There are $#arr values\n";

exit;
