sort %filelist;
sort %playlist;

##</code><code>##

for (keys %filelist) {
    print TEST $playlist{$_} . "\n";
    print TEST2 $filelist{$_} . "\n";
    }