if ($file =~ /\.mp3$/i ){
              push(@mp3files, $file);
          }