Select Code to Download

use strict;
use warnings;
...
    my @values = %{$people{$_}};
    print "@values\n";
}

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