my ($a,$b,$c) = map {'TRUE'}(0 .. 2);