foreach (@lines) {

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

##</code><code>##

  while (<NEWTIME>) {

##</code><code>##

    my($hour, $minute, $second) = split /:/;
    $time2 = join(':', $hour, $minute);
  }

##</code><code>##

  select NEWLOG;
  print "$time2\n";

##</code><code>##

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