Подскажите, как реализовать

[perl6]

 :)Приветствую всех... Возникла вот какая задача: на перле осуществляется генерация набора символов русского и английского алфавита и набора цифр, к примеру так

Код:

$1 = 'aswdeffdffdf' ;
$2 = 'ыфвываава' ;
$3 = '1247842' ;

Непонятно вот, что, как мне рандомно выводить любую переменную из этих трёх, иными словами, исходная переменная должна быть равно любой из этих переменных? Может у кого возникнут непонятки относительно смысла такого занятия, а смысл вот в чем, в каждой переменной храниться собственная сгенерированная комбинация, вот мне и надо рандомно выводить эту комбинацию, т.е., выбирать от $1 до $3. Заранее спасибо за любую подсказку...

[Вад]

Я уже подзабыл перл, но не проще будет положить все строчки в массив и юзать rand в духе:

Код: (Perl)

@strings = ($1, $2, $3);

$rand_string = $strings[int(rand(3))];

?

[Sla]

пусть меня поправят...

Код: (Perl)

$rand_string = int(rand(3));

$rand_var =$$rand_string

[Вад]

Sla, твой вариант круче, но как-то wtf-нее, что-ли

[perl6]

Спасибо большое