@h{keys %h} = map { $_->[0] } values %h;