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