Re^3: Assign multiple scalars the same value

[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.