sub circ_area {
  return map { 3.14 * ($_**2) } @_;
}