# rest as-is
sub circ_area
{
  map { 3.14 * ($_ ** 2) } @_;
}