BEGIN {
  no strict 'refs';
  for (1..5) {
    my $num = $_;
    *{__PACKAGE__ . "::CONSTANT$num"} = sub () { $num };
  }
}