use Data::Dumper;
my $slice = {
    kind => 'alph',
    prop => 'single',
    item => 5..11,
}
print Dumper $slice;

##</code><code>##

# print takes a list of arguments
# here map generates a list of args for one call to print.
print map {
    "num is $num the $_\n"
} @item_2;

# simply replaced map with foreach used as a statement modifier.
print "num is $num the $_\n" 
    foreach @item_2;