my @array = ( "Alfa","beta","gamma");

while (my ($index, $element) = each(@array))
{
    print "$index => $element\n";
}

##</code><code>##

0 => Alfa
1 => beta
2 => gamma