Your sample code doesn't have enough lines to die at line 70. Is Dumper the one found in Data::Dumper? If so, you should give it a reference to the variable you want it to print - otherwise, it prints the elements of the array, which means $apiJson[0] is an array reference, and $apiJson[0][0] is the hash reference you want to use. Or, don't use an array at all:

    my $apiJson = decode_json( $apiContent );
    print "Pretty Response:\n", Dumper( $apiJson );
    my $msgID = $apiJson->[0]{id};
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]