my %characters;

BEGIN {
    my $char = 0xE000;

    %characters = map { $_ => $char++ } (
      'first character',
      'second character',
      'third character'
    );
}

use charnames ":alias" => \%characters;