#!/usr/bin/perl -w

use strict;

my @start_array = qw( 1 2 3 4 1 4 9 6 17 2 8 );
my %holding_hash;
my @end_array = grep {!$holding_hash{$_}++} @start_array;

print $_, "\n" for @end_array;
[download]