在Perl中，如何查询JSON::Path对象并返回匹配元素的路径？

use JSON::Path;

# 创建一个JSON::Path对象
my $json_path = JSON::Path->new('$..book[?(@.price < 10)]');

# 解析JSON数据
my $json_data = '{
  "store": {
    "book": [
      {
        "category": "reference",
        "author": "Nigel Rees",
        "title": "Sayings of the Century",
        "price": 8.95
      },
      {
        "category": "fiction",
        "author": "Evelyn Waugh",
        "title": "Sword of Honour",
        "price": 12.99
      },
      {
        "category": "fiction",
        "author": "Herman Melville",
        "title": "Moby Dick",
        "isbn": "0-553-21311-3",
        "price": 8.99
      },
      {
        "category": "fiction",
        "author": "J. R. R. Tolkien",
        "title": "The Lord of the Rings",
        "isbn": "0-395-19395-8",
        "price": 22.99
      }
    ],
    "bicycle": {
      "color": "red",
      "price": 19.95
    }
  },
  "expensive": 10
}';

# 使用JSON::Path对象查询匹配的路径
my @matched_paths = $json_path->values($json_data);

# 打印匹配的路径
foreach my $path (@matched_paths) {
    print "Matched Path: $path\n";
}