my ($ref_array) = @_;