@list = ( 'p' , 'q' ) ; %map = ( @list ); %uniq ; @uniq{ @list } = ();