use strict;
use warnings;
use List::MoreUtils qw(any);
my @GrpIDs = qw(123 456);
my $query = '123,567';
my $QUERY = join '|', split(/,/, $query);
if (any {/$QUERY/} @GrpIDs){
    print "We have a match\n"; 
}