## see. perlop for more info on qw//
my @array = qw/ one two three four five /;

## create a range from 0 to the index of the last element in @array
for my $i (0 .. $#array) {
  ## acccessing element at $i using square bracket syntax
  print $array[$i];
}

## this is a more idiomatic approach
print for @array;