sub uniq { return keys %{{ map { $_, 1 } @_ }} }
Sorry for the nice formatting, that should have been:
sub uniq{keys%{{map{$_,[EMAIL PROTECTED]-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
