perl 读取wx返回的json 唉！

jrhmpt01:/root/wx# cat t7.pl 
$VAR1 = {
          'List' => [
                      {
                        'Val' => 646950773,
                        'Key' => 1
                      },
                      {
                        'Val' => 646950834,
                        'Key' => 2
                      },
                      {
                        'Val' => 646950079,
                        'Key' => 3
                      },
                      {
                        'Val' => 1453792608,
                        'Key' => 1000
                      }
                    ],
          'Count' => 4
        };
print $VAR1->{List}->[0]->{Val};
print "
";
jrhmpt01:/root/wx# perl t7.pl 
646950773