Select Code to Download

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

num is 7 the 5
num is 7 the 6
...
num is 7 the 9
num is 7 the 10
num is 7 the 11