my ( $id, $time, $date, $col1, $col2, $col3, $col4 ) = 
    split / /, $line;