+ my $f = substr($t,0,1);
+ # repeatable subfileds. When we hit first one,
+ # store CURRENT (up to that) in first repetition
+ # of this record. Then, new record with same
+ # identifiers will be created.
+ if ($val->{$f}) {
+ push @{$rec->{$k}}, $val;
+ $val = {
+ i1 => $val->{i1},
+ i2 => $val->{i2},
+ };
+ }