In Perl, "distinct" means "hash":

sub distinct {
    my %distinct;
    @distinct{@_} = ();
    return keys %distinct;
}
[download]