Select Code to Download

#!/usr/bin/env perl
use strict;
...

[0, 1, 10, 12, 13, 15, 17, 19, 24, 29]

sub uniq (@)
{
...
    my $seen_undef;
    grep { defined $_ ? not $seen{ $k = $_ }++ : not $seen_undef++ } @
+_;
}