$synusers{ $fields{updalumname} } = join '::', 
    @fields{qw(updalumemail  updemailpub   updalumsnail1 updsnail1pub
               updalumsnail2 updsnail2pub  updalumsnail3 updsnail3pub
               updphone      updphonepub   updalumyears  updyearspub
               updcomment    updcommentpub updsynpass    updsynpass2)};