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