This code is a mess, your better off rewriting it.
>
> open iscd,"<$ARGV[0]" or die "Cannot open $ARGV[0]",$!;
> open sortcode,">$ARGV[1]";
> while($line=<iscd>){
> chomp $line;
> @fields=split "\t",$line;
> printf sortcode
> "\n%6.6s%8.8s%3.3s%27.27s%20.20s%35.35s%35.35s%10.10s%1.1s%1.1
> s%2.2s%2.2s%2.
> 2s%2.2s%2.2s%2.2s%2.2s%2.2s%2.2s%2.2s%1.1s%1.1s%6.6s%35.35s%4.
> 4s%4.4s%10.10s
> %8.8s",
>
> $fields[0],$fields[1],$fields[2],$fields[4],$fields[5],$fields
> [6],$fields[7]
> ,$fields[11],$fields[14],$fields[25],
>
> $fields[26],$fields[27],$fields[28],$fields[29],$fields[30],$f
> ields[31],$fie
> lds[32],$fields[33],
>
> $fields[34],$fields[35],$fields[58],$fields[60],$fields[61],$f
> ields[64],
> $fields[76],$fields[77],$fields[78],$fields[79];
> }
> close iscd;
> close sortcode;
> exit;
> [End of file]
>
>
