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

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

1;