Perl Best Practice の 5.12 では、ハッシュスライスを使って、やや大きな配列データを作成するときに 中間のハッシュを作ることを推奨しています。その際に、keys と values を使っています。 こんな感じです。 Readonly my %CORRESPONDING => ( 'top' => -1, 'prev' => -2, 'backup' => -3, 'emergency' => -4, 'spare' => -5, 'rainy day' => -6, 'alternate' => -7, 'default' => -8, ); @frames[ values %CORRESPONDING ] = @active{ keys %CORRESPONDING }; んで、これは今までは良かったと思うのですが、Perl 5.18 からは Hash Key Ra