DB<100> $_=join " ",a..z
 => "a b c d e f g h i j k l m n o p q r s t u v w x y z"

  DB<101> $x= pop [ split / / ]
           ;;
Type of arg 1 to pop must be array (not anonymous list ([])) at (eval 20)[multi_perl5db.pl:644] line 2, at EOF

  DB<102> $x= pop @{[ split / / ]}  # Workaround
 => "z"