use v5.36;
use builtin qw/indexed/;
no warnings q/experimental::builtin/;
no warnings q/experimental::for_list/;

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

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