use strict;
use warnings;
use Tie::File;

tie my @records, 'Tie::File', 'file.txt';
shift @records;