&mystart($LumberFile,LF); &buildlumber(\%Fs,LF,$Ppi); #### my $LF = \do { local *LF; *LF }; &mystart($LumberFile,$LF); &buildlumber(\%Fs,$LF,$Ppi);