foreach $line (@data) {
chomp $line;
               
($timestamp, $dump1, $dump2, $out, $dump3, $dump4, $dump5, $in, $dump6)=split(/\t/, $line);     # Sort out needed columns

foreach ($line) {                    # Format time/date
my $datetime = DateTime::Format::Excel->parse_datetime($timestamp);
$timestamp = $datetime->ymd . $datetime->hms;
seek ($fh, 0, 0) or die "Seek: $!";
print $fh "$timestamp $out $in\t";
}
print $fh;
}
close (FILE);