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";
}