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;

##</code><code>##

use strict;
use warnings;
use autodie qw( open close );
use open qw( :encoding(UTF-8) :std ); # Or ASCII, Latin-1, etc.

my $file = 'array.txt';

open my $fh, '<', $file;

# ...

close $fh;