use Tie::File;
tie @array, 'Tie::File', $filename or die $!;
print $array[-1];

##</code><code>##

use Tie::File;
use Fcntl 'O_RDONLY';
tie @array, 'Tie::File', $filename, mode => O_RDONLY
    or die $!;