$ perl -e 'print scalar (1, "a"), "\n";' a