foreach (@lines) {

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

##</code><code>##

  while (<NEWTIME>) {

##</code><code>##

  select NEWLOG;
  print "$time2\n";

##</code><code>##

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