sub check_array
{
    my ( $array, $source ) = @_;
    for ( @$array ) {
        return if ( ! exists( $$source{$_} ));
    }
    return 1;
}