my ($color, $fruit) = @{$hoa->{keytwo}}{'color', 'fruit'};