Select Code to Download

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