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