#!/tool/bin/perl -w
use strict;

my $i = 0;
my @array;


for ($i = 0; $i < 100; $i++)
{
    printf("element $i of array = ");
    printf("%s\n", $array[$i]);
}