Return only the unique elements of a (pre-sorted) list
Download (right click, save as, rename as appropriate)
1 2 3 4
sub uniq(@) { # The list must be pre-sorted my $prev = undef; grep { (!defined $prev or $prev ne $_) and ($prev = $_ or 1) } @_; }