my @data = qw( foo bar baz moo mar );

print("1st - 0 - $data[0]\n");
print("5th - 4 - $data[4]\n");
print("\n");

foreach $name (@data) {
    print "$name\n";
}

##</code><code>##

1st - 0 - foo
5th - 4 - mar

foo
bar
baz
moo
mar

##</code><code>##

use Data::Dumper;
my @data = qw( foo bar baz moo mar );
print(Dumper(\@data));

##</code><code>##

$VAR1 = [
          'foo',
          'bar',
          'baz',
          'moo',
          'mar'
        ];