>>394
sub any(&@) {
my ($c, @arr) = @_;
&$c && return 1 foreach @arr;
0;
}
というのを作って
if (any { $_ == $sss } (11111, 22222, 33333)) {}
とかどうよ。モジュールが使えるならこれがList::MoreUtilsにある。

若しくはPerl6::JunctionかQuantum::Superpositionsを使うと、
もっと面白い書き方が出来る。
if ($sss == any(11111, 22222, 33333)) {}