my @serialdatalist;
my %processedserialid;
my $today = output_pref( dt_from_string );
my $today = output_pref( { dt => dt_from_string, dateonly => 1 } );
foreach my $serialid (@serialids) {
#filtering serialid for duplication
-