Select Code to Download

@AoA = (
           [ 0.5, "b1", "c0" ],
...
           [ 0.3, "b3", "c3" ],
           [ 0.6, "b3", "c4" ],
 );

my @sorted =  sort @AoA; #sort on $a
my %seen = ();
...
        # sort remaining array, from now on... and proceed analyzing l
+ine by line
    }
}