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

sub func ($aref) >> sub definition
{
  
  $aref->[0]="four";

  }

  &func($arref); >>calling the sub

  print "@array";