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