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;