Select Code to Download

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

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

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