my $sortby = 3;

my @revsort_colids = (0..4, 9, 18);

my $revsort = (grep { $sortby == $_ } (@revsort_colids)) ? 'yes' : 'no';

print "$revsort\n";