#!/usr/bin/perl -w
use strict;
use warnings;
use Tie::File;

my $MAXSAVE = 5;

my $name = "Duane Wade";
my $subject = "My Career";
my $message = "No one ever thought I'd be this good.";

my $myTieObject = tie my @messagesIn, 'Tie::File', 'messageTest2.txt' or die "can't open\n";
$myTieObject->flock;
unshift @messagesIn, "$name|$subject|$message";

if (@messagesIn > $MAXSAVE) 
{
    @messagesIn = @messagesIn[0 .. $MAXSAVE - 1];
}

untie @messagesIn;

1;