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

my @values = ();

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

print Dumper( \@values );