Select Code to Download

our $rcListHash = sub
    {
...

    print OUTPUT @uniq; # Instead of return @uniq;
    };

#!/usr/bin/perl

...
}

__END__

perl -ne 'print if !$saw{$_}++'

perl -pe'$_ x=!$$_++'

sub uniq {
    my %saw;
    grep !$saw{$_}++, @_;
}

sub uniq {
    my ($out, %saw)=shift;
    print $out grep !$saw{$_}++, @_;
}

{
    my %saw;
    sub { grep !$saw{$_}++, @_ }
}

#!/usr/bin/perl -l

...
print for $u2->check(qw/foo barr baz/);

__END__