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