@a = ('a', 'b', 'c'); @b = qw(a b c); # a and b contain the same elements %hash{key}++; %hash{'key2'}++; print "$_\n" foreach (keys %hash); # prints (not necessarily in this order): # key # key2