sub create_profile()
{
	my ($dbh, $profile_specs_ref) = @_;
	my ($sql, $key, $value);
        my %profile_specs = %{$profile_specs_ref};