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/a…