no strict 'vars';
use Fatal qw(open);

open local(*KERLIS) , $file;
@KERLIS = <I>;
close KERLIS;
passboth( *KERLIS );

sub passboth {
        local *FH = shift;
        # print @FH;
        # open *FH, $file;
}