#!/usr/bin/perl

use locale;

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

@dictionary_sorted =
    map { $_->[0] }
       sort { $a->[1] cmp $b->[1] }
          map {
	      my $d = lc;            # Convert into lowercase.
	      $d =~ s/[\W_]+//g;
	      [ $_, $d ]
              }
        @array;

print "@dictionary_sorted\n";