sub create_subroutine_to_return_constant {
  my ($constant) = @_;
  my $newsub = sub { return $constant };
  return $newsub;
}