while (<DATA>) {
  (undef, $time, $date, undef, undef, undef, $num) = split;
}