for my $n (0 .. 267) {
    print "$n\n" if grep {$n == $_} 40, 47, 76;
}