$ perl -MO=Concise,-exec -e'$a = ($x,$y);' 2>&1 | grep list
6  <@> list sKP