ハッシュスライス

こんな感じでハッシュを作れる。

my %foo;
@foo{qw(one two three)} = ( 1, 2, 3 );

展開するときはこんな感じで。

@bar = qw(one two three);
print @bar;

ハッシュの中身全部を別のハッシュにいれるときはこんな感じ。

%large{keys %small} = values %small;

初めてのPerl