I'd skip the grep: it's redundant:

my @delete_list = map /^delete_check_(.*)/, keys %session;
[download]

This works because the regex match is in a list context. If it matches, you get back $1. If it fails to match, you get an empty list. And it disappears. {grin}

-- Randal L. Schwartz, Perl hacker