for (my $n = 0; $n < 268; $n++) {
    if ($n==40 || $n==47 || $n==76)) {
       print $n."\n";
    }
}