#!/usr/bin/perl

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

use charnames ":alias" => $characters;