sub circ_area {
  my @radii = @_; # copies values into a variable

  foreach (@radii) {
    $_= 3.14 * ($_**2);
  }

  return @radii;
}