local @data;
foreach my $line (@lines) {
   @data = split /\s+/, $line;
   $time = shift @data;
   foreach my $datum (@data) {
   }
}