写个hash排除重复数据

   1 #!/usr/local/bin/perl5 -w
      2 my %GetfHash;
      3 my@arry=(2,3,4,2,5,7,3,4,2);
      4 foreach $tmp (@arry){
      5        if(!(exists $GetfHash{$tmp})){
      6                  $GetfHash{$tmp}=1;
      7                     }else{
      8                                $GetfHash{$tmp}+=1;
      9                                   }
     10           }
     11    foreach $key (keys %GetfHash){
     12             if($GetfHash{$key}!=1){
     13                        print $key."   ".$GetfHash{$key}."\n";
     14                          }
     15                  }
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
0mnsdev13:scripts> ls
FASTA                      FASTA.pl*                  oekb_xml_download_url.pl
FASTA.PL                   FASTa.pl                   oekb_xml_parse_load.pl
FASTA.out                  fasta.pl                   pl
mnsdev13:scripts> ./FASTA.pl
4   2
3   2
2   3
mnsdev13:scripts>

Please use hash to write a perl to exclude theduplicate data from below array. Last you need point  out which numbersare duplicate and  their duplicate count. 

1 #!/usr/local/bin/perl5 -w
      2 use strict;
      3 use warnings;
      4 my %aa;
      5 my @duplicated = (2,3,4,2,5,7,3,4,2);       
      6 @aa{@duplicated} = ();
      7 my @unduplicated = sort keys %aa;
      8 print "@unduplicated\n";
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
0mnsdev13:scripts> ls
FASTA                      FASTA.pl*                  oekb_xml_download_url.pl
FASTA.PL                   FASTa.pl                   oekb_xml_parse_load.pl
FASTA.out                  fasta.pl                   pl
mnsdev13:scripts> ./FASTA.pl
2 3 4 5 7
mnsdev13:scripts>

2.
      1 #!/usr/local/bin/perl5 -w
      2 my@a=(2,3,4,2,5,7,3,4,2);
      3 foreach $a (@a){
      4       $time{$a}++;
      5 }
      6 foreach $a (sort keys %time){
      7       print "$a\t$time{$a}\n";
      8 }
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
~                                                                                 
0mnsdev13:scripts> ls
FASTA                      FASTA.pl*                  oekb_xml_download_url.pl
FASTA.PL                   FASTa.pl                   oekb_xml_parse_load.pl
FASTA.out                  fasta.pl                   pl
mnsdev13:scripts> ./FASTA.pl
2       3
3       2
4       2
5       1
7       1
mnsdev13:scripts>