Select Code to Download

use Test::More;

...

    is_deeply( \@result, $wanted, $name );
}

    my @substr_mat = ();
    my $substr_tmp1 = ();
...
                $substr_mat[$m++] = $substr_tmp2;
        }        
    }

    my @substr_mat = ();
    my %map1       = ();
...
          ? $substr_tmp1
          : $substr_tmp2;
    }