#!/usr/bin/perl
use strict;
my %hash;
my $i;
$hash{"array"} = ['a','b','c','d','e'];
for ($i = 0; $i <= $#{ $hash{array} }; $i++) {
    print "$i = $hash{array}[$i]\n";
}