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