Select Code to Download

use Tie::File;        
tie @array, 'Tie::File', filename or die ...;
...
    push @array, $something_else
    $file_altered++;
}

#!/usr/bin/perl
use strict;
...
} else {
    print "File remains the same\n";
}