>perl -wMstrict -le
"use Data::Dumper;
 ;;
 my @statements = (
   'strawberry red green rose',
   'apple red rose',
   'mango green',
   );
 ;;
 my %hash;
 for my $statement (@statements) {
   my ($fruit, @colors) = split m{\s+}xms, $statement;
   for my $color (@colors) {
     $hash{$fruit}{$color} = 1;
     }
   }
 ;;
 print Dumper \%hash;
"
$VAR1 = {
          'mango' => {
                       'green' => 1
                     },
          'strawberry' => {
                            'rose' => 1,
                            'green' => 1,
                            'red' => 1
                          },
          'apple' => {
                       'rose' => 1,
                       'red' => 1
                     }
        };