open . . .
while . . .
my $zuloeschen=$_;
unlink $zuloeschen;