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