#!/usr/bin/perl -w
@a=(1,2,3,4,5,5,6,3,7);
undef %raw;
@b=grep(!$raw{$_}++,@a);
print "@b \n";