$VAR1 = [
          {
            'mentions' => [],
            'author' => {
                          'avatar' => '035a793a88596c440cb0434f272d8f3c',
                          'discriminator' => '4559',
                          'id' => '159495601208164353',
                          'username' => 'MiyakoProductions'
                        },
            'embeds' => [],
            'channel_id' => '193239098226376705',
            'tts' => bless( do{\(my $o = 0)}, 'JSON::XS::Boolean' ),
            'mention_roles' => [],
            'mention_everyone' => $VAR1->[0]{'tts'},
            'content' => 'so i wrote a simple script to pull each one automatically',
            'id' => '233412710220562432',
            'type' => 0,
            'pinned' => $VAR1->[0]{'tts'},
            'edited_timestamp' => undef,
            'timestamp' => '2016-10-06T02:18:46.715000+00:00',
            'attachments' => []
          }
        ];

Not a HASH reference at discord.pl line 70.