foreach my $i(0 .. $#subxmlfiles) {
chdir('/users/dragonzero29/.wine/drive_c/mvtmp') or die "Could not change to dir...$!";
my @subxmllist=glob("@subxmlfiles");
system("spumux -s$i -m dvd -P \"/users/dragonzero29/.wine/drive_c/mvtmp/$subxmllist[$i]\" < \"/users/dragonzero29/.wine/drive_c/mvtmp/$MM.MPG\" > \"/users/dragonzero29/.wine/drive_c/mvtmp/.\" . ++$MM . \".MPG\"");
}