for (1..5) {
   $_ == $b ? goto JUMP : 0;
}
print "\$b has to be a number and is either 1, 2, 3, 4, or 5.";
JUMP:

##</code><code>##

$_ == $b and goto JUMP for 1..5;