Select Code to Download

foreach (@lines) {

  my($month, $day, $time, $data1, $data2) = split / /;
  open(NEWTIME, $time);

  while (<NEWTIME>) {

  select NEWLOG;
  print "$time2\n";

  open NEWLOG, ">>foofinal.txt";
}