# all like SCALAR(0x81nnnnn)
$ perl -le'$#a=10000;print \$_ for @a' |fgrep -v x81
$