>perl -e"%x=qw/foo bar 1 2 3 4 baz bar/; print scalar keys %x"
4