...
     @paths = sort { @$a <=> @$b } @paths;
my   @sets;
push @sets, set(@$_) for @paths;
my   @filtered;
...