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

tie my @file, 'Tie::File', 'messageTest.txt' or die "can't open\n";

my $MAX = 5;

if (@file > $MAX) {
    @file = @file[0 .. $MAX - 1];
    unshift @file, "new line";
}