print $_,"\n" for ( @{$parsed->{color}} )