use strict;
my @a;
sub canmod : lvalue 
{
    @a;
}

(canmod()) = qw(c d e);

print join(',', @a), "\n";
print join(',', canmod()), "\n";