Select Code to Download

$household = { 23 => { last => 'Smith', first => 'Mary' }, 
               22 => { last => 'Jones', first => 'Bob' }
};

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