1389: for my $i (0..@test_order-2]) 1390: { 1391: for my $j ($i+1..@test_order-1) 1392: { 1393: unless ( ( $test_order[$i] eq $test_order[$j] ) 1394: or exists($test_order{"$test_order[$i]\t$test_order[$j]"} ) )