my @x = uniq 1, 1, 2, 2, 3, 5, 3, 4; # returns 1 2 3 5 4
        my $x = uniq 1, 1, 2, 2, 3, 5, 3, 4; # returns 5

##</code><code>##

use strict;
use List::MoreUtils qw/uniq/;

my @all_no_dup = uniq <DATA>;

print @all_no_dup;

__DATA__
1
5
9
4
8
1
5
66
57
2
9