#!/usr/bin/perl -w
use strict;

my @inputs = ();
my @values = ();

@inputs = @ARGV;

foreach my $elemnt (@inputs)
    {
    if (grep {$_ ne $elemnt} @values)
        { push @values, $elemnt; }
    }

print "@values\n";