Look: for( "${^T}rees" ) {
    select( $one ), chop and chop;
    sort $thoughts while $working;
    { package wood; log for log; }
    How->can( "I" ) . $Reach::enlightenment . ??;
}
[download]

Compiles and runs without errors.

Makeshifts last the longest.