#  test_array	comparable code for  array  slices
#

use v5.20;

my @letters = "a".."z";
#my @list;

my @list = %letters[ 3, 4, 6 ];

dump_list("New slice");

# $letters{25} = "X"; # this doesn't work

#-----------------------------------------------------------
@list = ();            # clear it for comparison

for my $y (3, 4, 6) {                 # equivalent pre-5.20
	push @list, $y, $letters[$y];
}

dump_list("Previous version");

#-----------------------------------------------------------

$letters[25] = "X";

say "New value in array $letters[25]";

$list[scalar @list] = 42;

dump_list("After update");

sub dump_list {

say shift;
while (my ($k, $v) =  each @list) {
	say "Key = $k value = $v";
       }
say "";
}

# test_array End