#**function to concatenate another value onto the end of each string. #!!Value to be added specified as last scalar sub addvalue($$$); my ($ref1,$ref2); @$ref1=("meet","my"); @$ref2=("say","hello","to","my"); ($ref1,$ref2)=addvalue($ref1,$ref2,"dog"); print "@$ref1\n"; print "@$ref2\n"; sub addvalue($$$) {my ($a,$b,$c); @$a=@{$_[0]}; @$b=@{$_[1]}; $c=$_[2]; push(@$a,$c); push(@$b,$c); return ($a,$b);}