Language Basics Perl

#!/usr/bin/perl
our @array=(1,2,3);
{
    local $array[1]=4;
    print @array,"\n";
}
print @array,"\n",