# method 1 - always use an array:
while (my @values = fetchrow_array()){
  my $hash = ($values[0] => [ $values[1] ]);
  push (@{$hash{$values[0]}}, values[2])
}