sub select_record_set
{
   my ($SQL_select_clause,    #I just named the vars according to
       $SQL_from_clause,      #your comment code
       $SQL_where_clause,     #pick new names if you like
       $SQL_order_by_clause,  #pick a name that renders 
                              #the #comment useless
       ) = @_;
       
   my $statement_handle = (); #not sure that you need these
   my $sql_string = ();       #vars
   
   # I get lost here....
   # prepare(),  execute()
   
   # for that matter, if you are passing in an SQL statement,
   # why do you need the $SQL vars above? Prepare the statement and
   # then run it.
}