Select Code to Download

use Data::Dumper;
my $slice = {
...
    item => 5..11,
}
print Dumper $slice;

# print takes a list of arguments
# here map generates a list of args for one call to print.
...
# simply replaced map with foreach used as a statement modifier.
print "num is $num the $_\n" 
    foreach @item_2;