my %B_CHECKS = map +($_ => 1), @B_CHECKS;
for my $cn ( @CS_CHECKS ) {
   (my $bn = $cn) =~ s/^(?:0|5|6)0+//;
   if ( $B_CHECKS{$bn} ) {
      print "$bn = $cn\n";
   }
}