#!/usr/bin/perl -w

use strict;
use Tie::File;

my $filename = 'file.txt';
tie my @data, 'Tie::File', $filename
    or die "couldn't tie(): $!";
pop @data;
untie @data;