my @badger="true";
foreach (@badger){print "$_\n"}

##</code><code>##

my ($a,$b,$c) = ("TRUE", "TRUE", "TRUE");