$ perl -e 'print "@$$\n";'

$ perl -e 'print "@$undefined_variable\n";'

$ perl -e 'print "@$]\n";'
]
$ perl -e 'print "@$(\n";'
(


##</code><code>##

$ perl -e 'print "\@$$\n";'
@24477
$ perl -e 'print "\@$undefined_variable\n";'
@
$ perl -e 'print "\@$]\n";'
@5.030003
$ perl -e 'print "\@$(\n";'
@500 7 10 11 16 18 19 27 35 80 85 100 105 500