foreach my $row_db (map { $_->[0] } sort { $a->[1] cmp $b->[1] } map { [$_, deaccent($_)] } @$selected ) {