open(my $out,'>>',"Int_$num.txt") || die "Can not open $num-file for appending ($!)";