sort { deaccent($a) cmp deaccent($b) } @$selected
[download]

should be

sort { deaccent($a->[1]) cmp deaccent($b->[1]) } @$selected
[download]

and

map $_->[0],
 sort $a->[1] cmp $b->[1],
  map [ $_, deaccent($_) ],
   @$selected
[download]

should be

map $_->[0],
 sort $a->[1] cmp $b->[1],
  map [ $_, deaccent($_->[1]) ],
   @$selected
[download]