$sql="select Preferences.i_preference_desc, Preference_Desc.name, Preference_Desc.value as range_value, Preferences.value as value, Preference_Desc.def_value from Preferences, Preference_Desc WHERE Preferences.i_preference_desc=Preference_Desc.i_preference_desc and i_account=?";	
my $sth2 = $dbh2->prepare($sql);
$sth2->execute($account);
my $preferences = {};

while (my $row = $sth2->fetchrow_hashref) {
	$preferences->{$row->{name}} = { value => $row->{value}, range_value => $row->{range_value}, def_value => $row->{def_value} };
	warn $row->{value};
}
$sth2->finish();