use strict;
use warnings;
use autodie qw( open close );

binmode STDOUT, ':encoding(UTF-8)'; # Or ASCII, Latin-1, etc.

my $file = 'array.txt';

open my $fh, '<:encoding(UTF-8)', $file;

# ...

close $fh;