while (<>){  # take file with duplicate lines
chomp $_;
/(\d+)$/;

push @array, $1;

          }



my %uniques;

foreach my $key(@array){

   $uniques{$key}++;
                       }