Select Code to Download

my @customerarray = ( ... );

...
open FH, '>', "$cuslist.tmp" or die "Can't open $cuslist.tmp: $!";
print FH "$_\n" for @keep;
close FH;

open FH, '>', "$cuslist.tmp" or die "Can't open $cuslist.tmp: $!";
print FH "$_\n" for grep { time - split '::', $_)[2] <= 15*24*60*60 } 
+@customerarray;
close FH;