sub create_profile {
    my ($dbh, $profile_specs_ref) = @_;
    # . . .
}