my $json = JSON->new;
my $data = $json->decode($res);

my @result = $data->{'results'};
print Dumper @result;