sub circ_area { my @radii = @_; # copies values into a variable foreach (@radii) { $_= 3.14 * ($_**2); } return @radii; } #### sub circ_area { return map { 3.14 * ($_**2) } @_; }