use JSON;
use Data::Dumper;
my $json = '...'; # Put your VAR1 here.

my $p = from_json($json);
print Dumper $p;