while (<PLAYLIST>) {
   s/#.*//g;             #delete comments
   s/(^\s*|\s*$)//g;     #delete leading and trailing spaces
   $playlist{$_} = 1 if /\.mp3$/;
}