如何合并两个hash,键和相应的值都要合并

比如
%basket1 = (
           "Apple"  => "red",
           "Banana" => "yellow",
           "Lemon"  => "yellow",           
           "Carrot" => "orange"
         );
                 
%basket2=(                 
    "Apple"  => "yellow",
        "tomato"=>"red"
        );
       
合并后的结果
        %together =(
                   "Apple"  => "red,yellow",
           "Banana" => "yellow",
           "Lemon"  => "yellow",           
           "Carrot" => "orange",
                           "tomato"=>"red"
         );