update: Have you considered that you are printing before deleting? -- As usual, ikegami is my perl -c :)

For more details, see delete. -- this is still useful, of course.