perl probleme d'addition

j'essaye d'executer un script perl mais quand je met +100 a cote ca marche pas
je suis debutant dans perl j'ai besoin d'aide ??

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

@n = 2..9; foreach my $a (@n) { foreach my $b (@n) { foreach my $c (@n) { foreach my $d (@n) { if ( $a+100*$b+100*$c*$d == 120 ) { print $a, $b, $c, $d, "\n"; } } } } }

---

La valeur minimale sera obtenu quand a = b = c = d = 2. Cela nous donne
a + 100b + 100cd = 2 + 200 + 400 = 602. Ton expression ne peut donc jamais valoir 120.