my @files = map {chomp;s/^\s+//; s/\+s$//; $_;} <$FILES>;

##</code><code>##

@sorted = sort keys %hash;

%hash = map { my $v = $hash{$_}; s/ /_/g; $_, $v } @sorted;