my %match;
my @num = ('A000','A123'..'A456','A999','B000','B789'..'B888');
@match{ @num } = ();

foreach my $key('A000' .. 'B999') {
  print "$key  ";
  if ( exists $match{$key} ) {
    print "match\n";
  } else {
    print "does not match\n";
  }
}