use strict;
use warnings;

my @array=qw(one two three);
my $arref=\@array;

sub func 
{
    my $aref = shift;
    
    $aref->[0]="four";
}

&func($arref);

print "@array";