Ciao Paola! Indico ancora un altro modo: ---- use Set::Object qw/set/; my $set1 = set(3, 5, 8, 2, 20); my $set2 = set(40, 2, 81, 20, 3); my $intersection = $set1 * $set2; print join ',', @$intersection; ---- A presto, Michele. -- Michele Beltrame http://www.italpro.net/ - mb at italpro.net SkyPe: arthas77 - Twitter: _arthas