my %list_o_num = map {
                         if(exists $list_o_num{$_})
                         {  $list_o_num{$_}++  }
                         else
                         {  $_ => 1  }
                     }
                 @list_o_num;