在Perl中，如何只打印通过json提取的值？

use JSON;

my $json_data = '{"name": "John", "age": 30, "city": "New York"}';

# 解析JSON数据
my $data = decode_json($json_data);

# 提取值
my $name = $data->{'name'};
my $age = $data->{'age'};
my $city = $data->{'city'};

# 打印提取的值
print "Name: $name\n";
print "Age: $age\n";
print "City: $city\n";