my $ref = JSON->new->utf8->decode($json);
my @components = ref $ref eq 'HASH' ? @{$ref->{components}} : @$ref;
for my $zeile( @components} ){
   print"$zeile->{name}\n";
}