Bugfix:  Constant has to be declared inside of function

Perl will close on an empty array otherwise.