open INFILE,  "<:utf8" , $infilename || die ("can't open $infilename") ;
    @lines = <INFILE>;