sort {byid} @list; map {$_->()} @stuff; print {$fh||$ofh} @vars;