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