ハッシュの値を宣言と同時に参照する方法

久々に更新しますが、かなり自分用のメモですorz

ruby だと以下のように書くのをperlでどう書けばいいのか。。

# ruby
# 無名ハッシュ(という呼び方でいいかわからないけど)を作成と同時に値を引っ張る
{:k1 => 'v1', :k2 => 'v2'}[:k2]  # ==> "v2"

一応、こんな感じで書けたけど、リファレンスにせずに引っ張る方法はわからず。。

# perl
{k1 => 'v1', k2 => 'v2'}->{k2}  # ==> "v2"

(k1 => 'v1', k2 => 'v2'){k2}  # syntax error...

配列だとrubyと同じ感じでできるんだけどな〜。

# ruby
# 無名配列を作成と同時に値を引っ張る
%w[one two three][1]  # ==> "two"

# perl
qw(one two three)[1]  # ==> "two"