foreach $animal ( @{ $animals{pets} } ) {
        push ( @some_animals, $animal );
    }