my $array = [[apple, a1], [apple, a2], [apple, a3]]; 
my %hash = ();
foreach (@{$array}) {
    $hash{$_->[0]} = [] unless defined($hash{$_->[0]});
    push (@{$hash{$_->[0]}}, $_->[1]); 
}