whoops, the sub loop should be

sub loop{


    my ($row,@array)=@_  ;
    
    
    for (1 ... $#number_of_columns)
    {
    push @array,$_ if $matrix[$row][$_] ==1;
    
    my $length=@array;
    my $lengthofmatrix=@matrix;

    if ($row==$lengthofmatrix)
       {
           $finalroute[$y]=[@array] if     $length==$lengthofmatrix;
           $y++ if $length==$lengthofmatrix;      
    }
    else
    {
        loop($row+1,@array);
    }
    
    pop @array if $matrix[$row][$_]==1;
    
    }

        
}
[download]