#! perl
use strict;
use warnings;
use List::Util 'any';

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