Re^2: Assign multiple scalars the same value

[diotalevi]

This solution is less good than simply assigning the value to each variable separately in my $a = my $b = my $c = 'TRUE' because it avoids having to count how many variables you have. In your code, if you got the number wrong then the trailing variables will be left undefined which is far and away from the intent to leave them with a true value. You're making it easy to write in a bug later.

[xdg]

Good point. One could always do this:

use Want 'howmany';
my ($a, $b, $c) = &{ sub{ (1) x howmany } };

Not sure if that's shorter/better than other solutions (plus requires Want), but it's another way of keeping the number of variables in sync.