Select Code to Download

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

for(my $row=0; $row<=$#{$matrix_ref}; $row++){
   for(my $col=0; $col<=$#{$matrix_ref->[$row]}; $col++){
         push @new_array, $matrix_ref->[$row]->[$col];
   }
}