您需要将JSON字符串解码为Perl数据结构。如果您的perl版本为5.14+，则JSON::PP包含在核心中，因此无需安装。

use warnings;
use strict;

use Data::Dumper;
use JSON::PP qw(decode_json);

my $json = '{"status":"success","data":[{"empid":"345232","customername":"Lee gates","dynamicid":"2342342332sd32423"},{"empid":"36.VLXP.013727..CBCL..","customername":"Lee subdirectories","dynamicid":"223f3423dsf23423423"}],"message":""}';

my $perl = decode_json $json;

print Dumper $perl;

输出量：

$VAR1 = {
      'status' => 'success',
      'message' => '',
      'data' => [
                  {
                    'dynamicid' => '2342342332sd32423',
                    'customername' => 'Lee gates',
                    'empid' => '345232'
                  },
                  {
                    'empid' => '36.VLXP.013727..CBCL..',
                    'customername' => 'Lee subdirectories',
                    'dynamicid' => '223f3423dsf23423423'
                  }
                ]
    };

Mojolicious通过在响应对象上调用json方法来处理这个问题：

use Mojo::UserAgent;

my $ua = Mojo::UserAgent->new;
my $tx = $ua->get( 'https://www.example.com/api/endpoint' );
my $data = $tx->res->json;