my $PI = create_subroutine_to_return_constant(3);
  $z = $PI->();  # returns 3