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

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

##</code><code>##

17:34 >perl 1074_SoPW.pl
40
47
76

17:34 >