my @delete_list = map {s/^delete_check_//; $_} (grep /^delete_check_/, keys %session);