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