my $key = 23;
my $person = $household->{$key};
my %name = %$person;
my @slice = @name{'first', 'last'};