my %a = (foo => 1, bar => 2, baz => 3);
$" = ',';
print "existed = @{[delete $a{foo}]}\n";
print "notexisted = @{[delete @a{qw(foo bar baz)}]}\n";
__END__
existed = 1
notexisted = ,2,3