my $jsonoutput = "Above raw JSON format...";
    my $json = new JSON;
    my $jsontext = $json->allow_nonref->utf8->relaxed->escape_slash->loose->allow_singlequote->allow_barekey->decode("$jsonoutput");
 
 foreach my $stuff(@{$json->{1}}){
      my %hash = ();
      $hash{subject1} = $stuff->{subject1};
}