@files = reverse (sort { $files{$a} <=> $files{$b} } keys %files); #### @files = sort { $files{$b} <=> $files{$a} } keys %files; #### my $redirect = ( $TRACE < 2 ) ? '>' : '| tee'; system( "sed s/{author}.*//g <$file $redirect ${file}1.txt";