+csv_file( 'IDNTAG.csv', sub {
+ my $line = shift;
+
+ my ( $idsl, $tag, $STSL, $KZVS, $BIBRAZ, $HIRAZ, $KPS, $OKO ) = split(/,/,$_);
+
+ my @leader;
+ $leader[5] = $STSL;
+ $leader[6] = $KZVS;
+ $leader[7] = $BIBRAZ;
+ $leader[8] = $HIRAZ;
+ $leader[17] = $KPS;
+ $leader[18] = $OKO;
+
+ $leader[23] = ' '; # last char;
+
+ my $full = join('', map { defined $_ ? $_ : ' ' } @leader);
+ $data->{$idsl}->{'leader'} = $full;
+ return;
+});
+
+