foreach my $row_db (map { $_->[0] } sort { $a->[1] cmp $b->[1] } map { [$_, deaccent($_->[1])] } @$selected ) {
  my ($ID, $column1, $column2) = @$row_db;
  print "$column1\n";
}