}
else {
    print $out2 $_;
}

##</code><code>##

my $fmt = "%-28s %-30s %-12s %-10s %-18s %-22s %-21s %s \n";

...

printf $fmt, $7, $1 ...