for my $i ( 0 .. $#subf ) {
$subf[$i][0] = "@" unless $subf[$i][0];
my $sf_def = $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] };
for my $i ( 0 .. $#subf ) {
$subf[$i][0] = "@" unless $subf[$i][0];
my $sf_def = $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] };