my %hash;
while ($values = fetchrow_array()){
push (@{$hash{$values[0]}}, values[1]);
push (@{$hash{$values[0]}}, values[2]);
}
foreach $value (keys %hash){
print "\$hash: @{$hash{$value}}\n";
}