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

##</code><code>##

for (sort values %playlist) { print TEST  "$_\n" }
for (sort values %filelist) { print TEST2 "$_\n" }