sub get_rc_site_information {
    for my $instance ( keys %site_information ) {
        print $instance;
        for my $schema ( keys %{ $site_information{ $instance } } ) {
            print $schema;
            my $channel_query = qq(select