>perl -e"@x=qw/foo bar/; print scalar keys map { $_ => 1 } @x;"