print
   $data->get('Colour', qw( Entries Flowers Rose   )), $/,  # red
   $data->get('Colour', qw( Entries Flowers Dahlia )), $/;  # blue