my @delete_list = map {/^delete_check_(.*)/} (grep /^delete_check_/, keys %session);