$array[0] = C:/MainDir/SubDir/ExtraDir/file1.txt

##</code><code>##

$i = $#array;
for ($i;$i >= 0;$i--){
unlink $array[$i];
}

##</code><code>##

while (@array) {
$x = (pop, @array);
unlink $x;
}