On Aug 15, 2006, at 3:42 PM, Xavier Noria wrote:
%seen = (); @uniq = grep { my $is_new = 0; if not exists $seen{$_} {
Oh sorry I wrote that off the top of my head and forgot the parens. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>