modify(\@matrix);
sub modify{
     $matrix_ref = shift @_;
     @new_array = @$matrix_ref
}