my @array = qw(160366
160172
252010
160172
160108
160112
160186
160186
252010
252010
252010
160366
160060
252010
160186
160186
160108
160186
160172
252010
160186);
my %seen;

@array = grep{!$seen{$_}++}@array;
print scalar(@array);