open(FILE,"<:encoding(utf8)","$FILE");
@LINES = <FILE>;
close(FILE);