0 Пользователей и 1 Гость просматривают эту тему.
my @array = (1, 2, 3);print $array[0], "\\n";func(\\@array);print $array[0], "\\n";sub func { my $aref = shift; $aref->[0]++;}