# 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;