Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    print $sortedUniq,"\n";
    }

for my $symbolRow (0..$#symbol) {
    for my $symbolCol (0..$#{$matrix[$symbolRow]}) {
...
#the element (symbol) already exists in a preceeding line
#remove from current line.
# Then proceed with nested loops.