push @{$fruits{$a}},$b

##</code><code>##

$fruits{$a} .= ','.$b ;