#!/usr/bin/perl
sub unique {
  my $self=shift;
  my %tmp;
  map { %tmp{$_}=1 } @_;
  return keys %tmp;
}

@array = qw(apples cheeries apples bananas apples);
$o->unique(@array);