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

##</code><code>##


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