my @files = qx[find $dir -iname "*$array_out[$i].mp3*"];