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