use strict;
use warnings;
use autodie;

my $file = 'array.txt';
open(my $fh, '<', $file);