Select Code to Download

return
$this

use strict ;
use warnings ;
...
print ">>> $test\n" ;
print map "[$_]\n",@test ;
print $test == scalar(@test)? "Yepa!\n" : "Nope!\n" ;

$ perl test.pl
>>> test
...
[test]
Argument "test" isn't numeric in numeric eq (==) at test.pl line 11.
Nope!