>>480

%$temp = map { $_ => '' } qw/abc bcd cde def efg fgh ghi hij ijk/;

か

@$temp{qw/abc bcd cde def efg fgh ghi hij ijk/} = ('') x 9;

だな。