Or you could try:

foreach my $i ( 0 .. $#$array ) {
    # dereference the element
    print $array->[$i], "\n";

}
[download]

Originally posted as a Categorized Answer.