@mak = qw(h1, h2, h3, h1, h3);
my %mak_table = ();
foreach my $num ( @mak ) {                        
      $mak_table{$num}++;                          
      print "\n\n$mak_table{$num}\n";             # Only so you can see what is happening
}                                                 
my @unique_nums = sort keys %mak_table;

print "@unique_nums\n";