c:\@Work\Perl\monks>perl
use strict;
use warnings;

my @names = qw(1000567/1  1000567/2  122854/1  1000574/2);

my $rx_sep = qr{ , }xms;  # adjust to match real field separator

my ($rx_interesting) =
    map qr{ \A (?: $_) (?= $rx_sep) }xms,
    join q{ | },
    map quotemeta,  # proper!
    reverse sort    # order!
    @names
    ;
print "$rx_interesting \n";  # for debug

my @data = (
  '1083978/2,284224,284292,chrX,255,+,284224,284292,255,0,0,1,68,0',
  '122854/1,284224,284277,chrX,255,+,284224,284277,255,0,0,1,53,0',
  '641613/1,284224,284290,chrX,255,+,284224,284290,255,0,0,1,66,0',
  );

while (my $datum = shift @data) {
    print "interesting: >$datum< \n" if $datum =~ $rx_interesting;
    }

__END__
(?msx-i: \A (?: 122854\/1 | 1000574\/2 | 1000567\/2 | 1000567\/1) (?= (?msx-i: , )) )
interesting: >122854/1,284224,284277,chrX,255,+,284224,284277,255,0,0,1,53,0<