#!/usr/bin/perl
use warnings;
use strict;
use DBI;
my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 );
my %saw;
my @out=grep(!$saw{$_}++,@array);
print "@out\n";
use warnings;
use strict;
use DBI;
my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 );
my %saw;
my @out=grep(!$saw{$_}++,@array);
print "@out\n";