Объявление и заполнение хеш-таблицы за один шаг в Perl

В настоящее время, когда я хочу построить таблицу просмотра -, я использую :

my $has_field = {};
map { $has_field->{$_} = 1 } @fields;

. Есть ли способ выполнить встроенную инициализацию за один шаг? (т. е. заполнить его одновременно с объявлением?)