@out
con los elementos no
repetidos de un array @in
se puede utilizar grep
y un hash
auxiliar %saw
para los elementos ya vistos:
my %saw = (); @out = grep(!$saw{$_}++, @in);otra forma de hacerlo (Uno de los lemas de Perl es TIMTOWTDI: There is more than one way to do it!)
undef %saw; @saw{@in} = (); @out = keys %saw;