while (@files) { my $file = shift @files; unlink $file or warn "Can't delete $file: $!\n; }