[ПЕРЛ]: укоротить инициализацию переменных

Привет.

А куда короче-то?

my ($a, $b, $c, $d) = ($varXYZ) x 4; # здесь латинская x а не умножение

eval?

Не обратил внимания, что значения одинаковые :-).

Еще вариант:

$_ = $varXYZ for my ($a,$b,$c,$d);

IMHO вариант Legioner'а конечно нагляднее, но в нем требуется
менять "множитель" при добавлении/удалении переменных в списке.

HTH

изврат!

my ($a, $b, $c, $d);
$a=$b=$c=$d=$varXYZ;
как вариант