my %colors = map { $_ => %$hash{$_} } grep { $_ =~ /color$/ } keys %$hash;