use strict;
use warnings;

my $kind = 'alph';
my $prop = 'single';

my $slice = {
    kind    => $kind,
    prop    => $prop,
    item    => [5..11]
};

my @item_2 = @{$slice -> {item}};
my $num = scalar @item_2;
map {print "num is $num the $_\n";} @item_2;