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