+my $programmed;
+my $numbers;
+foreach my $log_path ( glob( "$log_print/*.txt" ) ) {
+ warn "# loading $log_path";
+ open( my $in, '<', $log_path ) || die $!;
+ while(<$in>) {
+ chomp;
+ my ( $date, $sid, $nr ) = split(/,/,$_,3);
+ $programmed->{ $sid } = $nr;
+ $numbers->{ $nr } = $sid;
+ }
+}
+
+warn "# ", scalar keys %$numbers, " programmed cards found\n";
+