print('-', (map { sprintf('%-10s', $_) } @header), "\n");
foreach my $line (@data) {
   my @fields = split(/-->/, $line);
   print('-', (map { sprintf('%-10s', $_) } @fields), "\n");
}