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