sub execute_subject_query()
{
    open(SWRT, ">SUBJECT_CODES_FOR_XML.txt");
    my $rv = $sth_subj->execute();
    if($rv == 0)
    {
        print "No Value Returned\n"; 
    }
    else
    {
print "subject_id\tsubject_sex\tsubject_type\n";
        while( my $array_ref = $sth_subj->fetchrow_arrayref)
        {
            for(my $i=0; $i<@$array_ref;$i++)
            {
                print "$array_ref->[$i]\n";<STDIN>;
                print SWRT "$array_ref->[$i]\n";
            }
        }
    }
    $sth_subj->finish();
    close SWRT;
}