print $cat->{'name'}, $/;