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

##</code><code>##

my $format = '-' . ('%-10s' x @header) . "\n";

printf($format, @header);
foreach my $line (@data) {
   printf($format, split(/-->/, $line));
}