How I can avoid that .

stop overwriting the file :) use a different filename each time, like

use POSIX;
my $procdate = POSIX::strftime('%Y-%m-%d-%H-%M-%S', localtime);
my $tmsa = "tmsa.out-$procdate";
system .... $tmsa
[download]