#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use Syntax::Construct qw{ keys-array };  # More explicit than 5.012.

my @array = qw( abc def );

my @keys = keys @array;      # 0, 1
my @values = values @array;  # abc, def
while (my ($index, $value) = each @array) {
    say "$index $value";     # 0 abc, 1 def
}