delete multiple keys in hash

use strict;
use warnings;

my %Age = (
   Tom => 26,
   Peter => 51,
   Jones => 23,
);

my @temp = delete @Age{'Tom', 'Peter'};

$, = " ";
print "Deleted values:", @temp, "\n";
print "Remaining keys:", keys %Age;