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