sub readfile_to_arr { # take in unicode utf8 text, return as array of lines
    my $infilename = shift;
    my @lines =  ();
    use Encode;

    open INFILE,  "<:utf8" , $infilename || die ("can't open $infilename") ;
 
(line 27)    while 
(line 28)  (my $line = decode_utf8(<INFILE>))
	{
        push(@lines, $line);
    }