use Tie::File;
use Fcntl 'O_RDONLY';
#...
tie (my @content, 'Tie::File', $file, mode => O_RDONLY) or die "Could not open $file: $!";