Help for this page

Select Code to Download

Select or download this

use Lexical::Alias qw(alias);

...

$array[1] = 2;
print "@array";