my ( $color, $fruit ) = @{ $hoh->{ keytwo } }{ qw( color fruit ) };