Matt's Evil Interview Question

• What does this do?

perl -le 'print ++$#{[(<*>)]}'