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