#!/usr/bin/perl -l

use strict;
use warnings;

package Uniq;

sub new { bless my $self={}, shift }

sub check {
    my $self=shift;
    grep !$self->{$_}++, @_;
}


package main;

my $u=Uniq->new; my $u2=Uniq->new;

print for $u->check(qw/foo bar baz/);
print for $u->check(qw/foo barr baz/);
print "--";
print for $u2->check(qw/foo barr baz/);

__END__