#!/usr/bin/perl
use Mojo::UserAgent;

sub chatters {
    my $url = "https://tmi.twitch.tv/group/user/bobross/chatters";
    return unless my $data = Mojo::UserAgent->new->get($url)->res->json;

    map { @$_ } values %{ $data->{chatters} };
}

@users = chatters();
print "@users\n";