for (@attributes)
{
  no strict 'refs';
  ${$package . '::' . $_} = do {
    ... something to do with $_ ...
  };
}

##</code><code>##

  use constant {
    map {
      uc $_ => __PACKAGE__ . "::$_"
    } qw(name timestamp etc.)
  };