@a=@b=@c=@d=('*','-','+','/'); foreach $a (@a) { foreach $b (@b) { foreach $c (@c) { foreach $d (@d) { $string = eval ("57 $a 27 $b 37 $c 17 $d 47"); if ($string==777) {print "a$a b$b c$c d$d\n"} } } } } Ich mag perl :D Gruss Cem