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