use LWP::Simple 'get';
use Data::Dumper;
use Mojo::JSON qw(decode_json encode_json);


use constant URL => 'https://api.bridgedataoutput.com/api/v2/OData/test/test?access_token=xxxxxxxxxxxxxx';

my $json = get URL or die "Unable to get JSON data";

my $datahash = decode_json $json;
%hashdata = %$datahash;

#print Dumper(%hashdata);
#print $hashdata{'value'};   ## Array that holds the data

foreach $key (keys %hashdata)
{
    $value = $hashdata{$key};
    print "Key $key  Value  $value\n\n\n";
  }