my $data = $json->decode($jsonfeed);

my @values = ();

foreach my $value ( values %{ $data } ) {
    push(@values, $value->{'subject1'});
}

print Dumper( \@values );

##</code><code>##

$VAR1 = [
          'value',
          'value',
          'value'
        ];