foreach ( @rooms ) { do { select LINOLEUM; next } if $self->poor(); do { select CARPET; next } if $_->isa('LIVING AREA') do { select CERAMIC_TILE; next } if $_->isa('BATHROOM'); do { select CERAMIC_TILE; next } if $_->isa('KITCHEN'); select HARDWOOD; }