If you'd used constant instead of doing it manually and were also using perl 5.10, you'd also avoid the memory overhead for the function DoesNotChange. Anyone doing sub BAR () { FOO } won't get the optimization.