#!C:\strawberry\perl\bin\perl.exe

# Using a foreach loop, print numbers, squares and cubes from 1 to 10

foreach (1..10) {
    print "Number: $_ square: ", $_**2, ' cube: ', $_**3, "\n";
}

Add Workbook Chapter 3, exercise 4
Add Workbook Chapter 3, exercise 4
