Select Code to Download

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

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