my $i = 0;
foreach my $e (@array)
{
     print "$i: $e\n";
     $i++;
}