Select Code to Download

sub deaccent {
    my $phrase = shift;
...
    $phrase =~ s/([ÆæÞþÐðß])/$trans{$1}/g;
    return $phrase;
}

foreach my $row_db ( sort { deaccent($a) cmp deaccent($b) } @$selected
+ ) {

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

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

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";
}