for (@lines) { my @cells = split; my $time = join ' ', @cells[2 .. $#cells - 1]; $table->addRow(@cells[0, 1], $time, $cells[-1]); }