my @animals = qw( dog cat );
my %pets;
@pets{ @animals } = @hash{ @animals };