This task is almost what grep is designed for:

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

with the slight down side that the compare is evaluated for each item in the list always. Most of the time that won't be an issue, but if it is (for a large list of possibilities) then you could instead:

my %wanted = map {$_ => 1} 40, 47, 76;

for my $n (0 .. 267) {
    print "$n\n" if exists $wanted{$n};
}
[download]