Perl - fattoriale tra somma elementi array

[gabmac2]

Dovrei cercare tra gli elementi di un array che la somma sia uguale ad un valore x
Ad esempio
A=[10,15,20,25,26,14,35]
e x=40
quindi sia 15+25 e 26+14 sono uguali a 40
In teoria bisogna fare somme per n fattoriale(potrebbero essere anche più di 2 elementi)
Ci sono modi più sbrigativi?
Grazie in anticipo

[_mRkZ_]

my @numeri = (1..50);
my $somma = 20;

foreach my $n1 (@numeri) {
foreach my $n2 (@numeri) {
//if ($n1 != $n2 && $n1+$n2 eq $somma) {
print "$n1 + $n2 = $somma\r\n";
//}
}
}

Potrebbe andare? :) non è sbrigativo ma mi viene in mente questo :D
Con qualche controllo in più sui due numeri puoi evitare duplicati..

[british]

Mettili in una tabella hash M, poi per ogni n appartenente a M controlli se x-n appartiene a M