use strict;
use warnings;

my %people=(
    'Jones'=>{'name'=>'Alison', 'age'=>15, 'pet'=>'dog',},
    'Smith'=>{'name'=>'Tom', 'age'=>34, 'pet'=>'cat',}
    );

for (keys %people) {
    my @values = %{$people{$_}};
    print "@values\n";
}

##</code><code>##

pet cat name Tom age 34
pet dog name Alison age 15