print $a--, "foo";