sub GetProdBuildNum {
   local $_ = @_ ? $_[0] : $_;
   s/\D//g;
   return substr($_, -4);
}

my $ProdBuild = 'K7000AKNBJQ4333';

my $ProdBuildNum = GetProdBuildNum($ProdBuild);

foreach (@pattern) {
   if (GetProdBuildNum >= $ProdBuildNum) {
      print("$_\n");
   }
}