[perl #60966] wrong data pass

[via RT]

# New Ticket Created by  Ruslan 
# Please include the string:  [perl #60966]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=60966 >


In this code, result will be 123, but i think that it must be 1.


sub test(@test is copy)
{
    @test[0] = 123;
};

my @test = (1, 2, 3);
test(@test);

print @test[0];