exemple:

#!/usr/local/bin/perl

sub liste()
{
 my($p)=shift; 
 my($add)=shift;

 my(@li)=@{$p};
 push(@li,$add);
 return @li;
}


@v = ("liste","ok");
@lr = &liste(\@v,"cette_fois");

print "@lr\n @v";