perlでjsの分割代入 (Destructuring assignment) みたいなことをする

jsほどスマートじゃないが、それっぽいことはできる

例

こんなデータがあるとして

my $h = {
    a => 1,
    b => 2,
};

こうやって取り出す

my ($a, $b) = @$h{qw/a b/};