sub foo my arr return wantarray arr arr rand scalar arr нужно коде выз

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
sub foo {
my @arr = (1,2,3,4,5,6);
return wantarray ? @arr : $arr[rand scalar @arr];
}
# нужно в коде вызвать функцию bar, и передать туда ссылку на массив, полученный в foo.
# как это бы сделать получше
# я имею ввиду можно было бы так:
my @somearr = foo();
bar(\@somearr);
# а можно ли как нибудь обойтись без этой лишней переменной, т.е. напрямую ?
# з.ы. поддержка скалярного контекста тоже необходима, изменять последнюю строчку функции foo не предлагать :D