#!/usr/bin/perl

use locale;

@array = qw(flow loop pool Wolf root sort tour);

@dictionary_sorted =
    map { /^\w* (.*)/ }
       sort
          map {
               my $d = lc;          # Convert into lowercase.
               $d =~ s/[\W_]+//g;   # Remove nonalphanumerics.
               "$d $_"              # Concatenate new and original words.
              }
        @array;

print "@dictionary_sorted\n";