$num = scalar ( qw(foo bar) );

print $num;   # "bar", not 2!