#!/usr/bin/perl use strict; use warnings; my @array = ("First", "Second"); foreach (0..$#array) { print "Element number $_ contains $array[$_] \n"; }