#T1 L2 L1 @a = grep { /cat/ } keys %h1 # L5 L4 L3 @b{@a} = @h1{@a}