my $k = [qw( a b )]; $h{$k} = $v; $v = $h{$k};