perlで配列からHashにする場合わざとらしくやるとこんな感じだけど、
use strict;
use warnings;
my @hoge = (0..1);
my %hash = (
aaaa => $hoge[0],
bbbb => $hoge[1],
);
なれてくると、こうなります。
use strict;
use warnings;
my %hash;
@hash { qw/aaaa bbbb/ } = (0..1);
結果
$VAR1 = {
'aaaa' => 0,
'bbbb' => 1
};
度忘れしたので、メモをしつつ変態だと思った。