my @valid= 1..5;
my %valid= map { $_=>1 } @valid;
# ...
$valid{$b} or 
  print "\$b has to be one of ",
        join(", ",@valid[0..$#valid-1]),
        " or $valid[-1]\n";