my $barcode_prefix = "25728"; 
  for my $b (@series) {
    my $chkd = checkdigit($barcode_prefix . $b);
  }