our( $stuff, @stuff, %stuff ); open *stuff, ...; &stuff(); write stuff;