my %set;
@set{qw(I agree)} = ();
print sort keys %set;      # Iagree

##</code><code>##

@set{@list} = (undef) x scalar @list;