@temp = map {$_->[1]}
             sort {$a->[0] cmp $b->[0]}
               map {($da = lc $_) =~ s/[\W_]+//g;[$da,$_]}
                 @temp;