Select Code to Download

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

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

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