#!/usr/bin/perl

use strict;

open(FILE, "+<stats.txt")
    or die $!;

my @array = ();

while (<FILE>)
{
    push @array, $_;
}
seek FILE,0,1;
truncate FILE, 0;

print FILE @array;
close(FILE);