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

##</code><code>##

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