foreach (@lines) {

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