Select Code to Download

SELECT
    *
...
    YOUR_SCHEMA.YOUR_TABLE@/*<DATABASE>*/YOUR_DB/*</DATABASE>*/ YOUR
WHERE
    MY.JOIN_KEY = YOUR.JOIN_KEY

#! /usr/bin/perl -w

...
}

print Dumper( \@db_list_two ), "\n\n" ;

1ST TRY
------
...
          'SGENQA',
          'SGENTEST'
        ];