Select By parent-child relationships

for( Shopping__c s:[select id,Name,(Select Name From Goods__r limit 1) from Shopping__c where Name=:shop.Name])
{
Goods__c g=s.Goods__r;
goods.Name = g.Name;
}