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