PERL
. Create an array with the numbers from 1 to 100. Write a subroutine that modifies this array by squaring each entry in the array. Write your subroutine so that you use pass by reference in order to modify the original array in the main body. Print out the first 10 entries and the last 10 entries of the array before and after the action of the subroutine within the main body.