for my $j($a..$b){
  print $write_tmp_app_log $lines[$j]
};